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6 LAS 

INSTRUCCIONES 
OCULTAS DEL Z-80 


Olvidadas incluso por Zilog, el 
microprocesador del Spectrum 
contiene 98 instrucciones que no 
figuran en ningún manual pero se 
utilizan frecuentemente en la 
protección de programas. 



GUIA DEL HACKER: 
ROBIN OF THE 
WOOD 


Encontramos todos los pokcs 
necesarios para llegar al castillo 
de Nottingham y derrotar al 
sherilT. Además os ofrecemos un 
completo mapa para recorrer el 
bosque de Sherwood, 



CENTRONICS, 
PERO.... ¿CUAL? 


Joaquín Mateos nos descubre las 
ventajas e inconvenientes de los 
tres interfaces Centronics más 
utilizados: Pin Soft, Indescomp y 
Kempston E. 



SUPLEMENTO QL 


El conjunto de Mandelbrot 

Calificado como el objeto más 
complejo de las matemáticas, el 
conjunto de Mandelbrot genera 
alguna de las imágenes más 
espectaculares que se pueden 
obtener con un ordenador. 


APRENDIENDO 

LENGUAJE 

MAQUINA 


Concluida la descripción del juego 
de instrucciones del Z-80, 
comenzamos a estudiar las 
características propias del 
Spectrum. Este mes el archivo de 
pantalla y el mapa de memoria. 


NUMEROS EN 
COMA FLOTANTE 


Si estás harto de escuchar la 
expresión «coma flotante» pero 
aún no sabes qué significa, ésta 
puede ser una buena ocasión para 
averiguarlo. 
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Complete su colección de 

ÜMtospectran 

A continuación le resumimos el contenido de los ejemplares 
aparecidos hasta ahora. 


Para hacer su pedido, rellene este cupón HOY MISMO 
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Spectrum/Prog ramas. 
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Amplia tu memoria... a 46 K/Arquitec- 
tura análisis del PREYME/Juegos/ 
FQRTH, Nociones básicas/Una clave, 
please/QL Magazine- Ultimas nove¬ 
dades, análisis de software, Lengua- 
jes/Auia informática con Spectrum/ 
Programas. 

Núm 9 - 300 ptas. 

Spectrum parlanchin/Juegos/Aula 
informática con Spectrum/Anáüsis: 
Comercial 4/Pascal/Periféricos: Wa- 
fadrive/OL Magazine: EASEL lo mejor 
de PSIÜN. Música con OL/Desplaza- 
miento Pixel a Pixel, aportación de 
lectores/Programas/Programer II. 

Núm. 10 - 300 ptas. 

Discos; invesdisc 200/Juegos/Dos 
programas simultáneos/Protección 
dei software/Conozca extremadura, 
consuite a su ordenador/Desensam- 
blador Z-80/Sofware educafivo/QL 
Magazine: novedades informa!, Hoja 
de cálculo, Ajedrez/Construya su 
propio Joystick/Pascal/prog ramas. 


DISPONEMOS 
DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE ZX 
(sin necesidad de encuademación) 


Núm, 11 - 300 ptas. 

Actualidad/La otra cara del LOGO/ 
Juegos/El Spectrum habla castellá- 
no/SOFTAlD ayuda para Etiopia/ 
S O S. aquí el Spectrum/Dibujar con 
lápiz óptico/QL Magazine: Procesa¬ 
dor de textos. Teclas de función pro- 
gramabies/Programas, 
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mas. 
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gramas. 
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Actualidad, Spectrum 128/Cálculo 
de estructuras para ingenieros y ar- 
quitectos/HELP utilidades en micro- 
drive/Juegos/EI microdrive ese des- 
conocido/Código máquina/Gl Ma¬ 
gazine: GRAPHIC QL. Juegos Discos 
de 720 K/Un nuevo operativo/Progra- 
mas, 

Núm. 15 - 300 ptas, 

Actualidad/Spectrum 128/Un nuevo 
operativo/Circuios redondos/Jue- 
gos/Utilidades; SETA-BASlC/QL Ma¬ 
gazine: Introducción al SUPER BA¬ 
SIC Nuevas utilídades/Hardware: 
Puertas lógicas/Código máquina/ 
Programas 
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Actualidad/Cinco horas con 
SCREEN$/Hardware práctíco/Cái- 
culos de infinita precisión/Juegos/ 
Un nuevo operátivo/GL Magazine: 
Gráficos en SUPER-BASIC. Dibujan¬ 
do con ratón. Archivos con Archive. 
Programa/La última batalla, Juego 
estratégico. 
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Actual idad /Gráficos i interactivos/ 
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EDITORIAL 


CUANDO 
EL RIO SUENA... 


Cuando apenas ha transcurrido un mes y medio desde la 
compra de Sinclair Research por Amstrad, las noticias sobre el 
futuro de los ordenadores Sinclair se suceden a la velocidad de 
la ¡uz. 

Sobre el QL, amenazado de muerte por Alan Sugar, se co¬ 
menta en Gran Bretaña que un consorcio de empresas y grupos 
relacionados con este ordenador intenta adquirir los derechos 
de fabricación y los stocks existentes. Quanta, Digital Precisión, 
Eidersoft y Timex podrían estar tras esta operación. 

Y mientras el futuro del QL continúa en el aire, las noticias y 
rumores sobre el Spectrum son mucho más halagüeñas: Ams¬ 
trad planea introducir una versión modificada a tiempo para la 
campaña navideña, durante la cual realizará un gran esfuerzo 
para apoyar la gama de productos Sinclair. Además, según 
nuestros colegas de la revista Sinclair User, está desarrollando 
un Super Spectrum que ofrecerá las mismas prestaciones gráfi¬ 
cas y de sonido que el revolucionario Commodore Amiga, pero 
a un precio muy inferior. Al parecer estará basado en un micro- 
procesador Z-80H (dos veces más rápido que el Z-80A) y tendrá 
un modo compatible Spectrum. Su memoria será de 128 Kby- 
tes, pudiéndose ampliar hasta 1 Mbyte. Probablemente incor¬ 
porará un cassette, pero el principal medio de almacenamiento 
de programas será lasofteard. Se da por descontado que inclui¬ 
rá el sistema operativo CP/M, aceptando las mismas utilidades 
que los Amstrad CPC y PCW. 

Se rumorea también que Amstrad podría lanzar con la mar¬ 
ca Sinclair una consola de vídeojuegos similar a las Alari VCS, 
una impresora de matriz de puntos y una unidad de discos de 3 
pulgadas para el Spectrum. 

En España, tras el éxito de la 1. a feria Amstrad, se especula 
con la posibilidad de que Indescomp se haga cargo de la distri¬ 
bución de los productos Sinclair y organice una feria Sinclair- 
Amstrad en septiembre. 

Así pues, nos aguarda un verano muy movido, durante el 
cual se confirmará alguno de los proyectos comentados y se 
aclarará la estrategia de Amstrad respecto a la gama de ordena¬ 
dores Sinclair. 


TODOSPECTRUM 













Las instrucción* (8 




Resulta sorprendente que, de re¬ 
pente, aparezcan nuevas instruccio¬ 
nes de un procesador que ya tiene 
algunos años. Realmente estas ins¬ 
trucciones han estado siempre ahí, 
ZILOG no las menciona, pero ya se 
conocían. No es, por tanto, un des¬ 
cubrimiento sorprendente. 


N o son instrucciones nuevas, 
siempre han estado ahí, pero 
no han sido mencionadas ni 
por ZILOG, ni por los autores que 
han escrito libros sobre el Z-80. 

El procesador Z-80 de ZILOG 
permite a los programadores de có¬ 
digo máquina trabajar con cerca de 
700 instrucciones. De éstas, existe 
abundante documentación, tanto 
de la casa fabricante, ZILOG, como 
de otras fuentes, principalmente au¬ 
tores de divulgaciones y métodos de 
programación del ensamblador de 
este chip. 


Sin embargo, existen unas 98 ins¬ 
trucciones ocultas que no aparecen 
en la información de ZILOG y de las 
que, seguramente, no has oído ha¬ 
blar nunca, pero que parecen fun¬ 
cionar en cualquier Z-80. Reciente¬ 
mente ha aumentado el interés por 
ellas, en parte debido a que algunos 
diseñadores de juegos las utilizan, 
bien sea por conveniencia, o bien 
para reforzar sistemas de protección 
que despisten por un rato a los 
kers». 

Puesto que ZILOG no las 
rencia, la mayoría de los programas 
ensambladores y desensambladores 
no las reconocen. Así, no es fácil se¬ 
guir la estructura de un programa 
ajeno en e! que se utilicen, y desde 
luego, no podremos usarlas con sus 
nemónicos en un listado para en¬ 
samblar. 


Cuáles y cómo 


Estas instrucciones pueden 
distribuirse en dos 
grupos. Por un 
lado las que se refieren a 
IX e IY, los registros 
índices o indicíales, 
que son las 
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CULTAS del Z-80 







Las instrucciones ©QyJtMí^del Z-80 


más numerosas. El otro grupo con¬ 
tiene instrucciones referidas a des¬ 
plazamientos, analicemos éstas pri¬ 
mero. 

Si nos fijamos en el conjunto de 
instrucciones de rotación y despla¬ 
zamiento, veremos que para cada 
función existen 2 comandos. Uno 
realiza la función hacia la izquierda 
y ei otro hacia la derecha (SLA- 
SRA, RL-RR, etc.), Sin embargo, 
existe una instrucción que no tiene 
su par, el desplazamiento lógico de¬ 
recha, SRL, no tiene instrucción 
opuesta, que sería SLL (desplaza¬ 
miento lógico izquierda). Esta rare¬ 
za tiene confirmación en la secuen¬ 
cia numérica de códigos hexadeei- 
males de las instrucciones. Entre 
CB30 y CB37 hay un intervalo en el 
que los códigos no tienen asociada 
ninguna instrucción. Precisamente 
donde debería estar el grupo de 
SLL. 


La mayoría de los 
ensambladores y 
monitores no reconocen 
las 98 instrucciones no 
referencíadas por Zilog 


Y funcionan 

Podemos operar con estos códi¬ 
gos y veremos que las instrucciones 
son aceptadas por el procesador, y 
que realmente ocurre un deplaza- 
miento lógico a la izquierda, o algo 
que se le parece. Mientras SRL des¬ 
plaza el registro a la derecha en un 
bit, el contenido del bit 0 pasa al 
banderín de acarreo y el bit 7 se lle¬ 
na con un 0, SLL no hace lo simétri¬ 
co. E) registro si es desplazado a la 
izquierda, el bit 7 se copia en el bit 


de acarreo, pero en vez de un 0, un 1 
es colocado en el bit 0. SLL afecta al 
registro F exactamente como lo ha¬ 
ría su gemela SRL. 

Todas las variantes de esta ins¬ 
trucción se encuentran en la Tabla 
1, con ei resto de comandos ocultos. 


Más instrucciones 

El otro grupo, más numeroso, de 
instrucciones «reaparecidas» se re¬ 
fieren en su totalidad a operaciones 
con los registros índice IX e I Y. Ob¬ 
servando una lista de instrucciones 
del Z-80, podemos apreciar cómo 
existe una gran relación entre los 
códigos de las instrucciones que 
operan con el registro HL, y las que 
lo hacen con IX e IY. Por ejemplo, 
tomemos LD (HL),A, cuyo código 
es 77. La operación similar con IX 
será: LD (IX+des),A; su código es 
DD 77 nn. Como veremos el código 
de la instrucción de IX es el mismo, 
con DD delante y añadiendo un oc¬ 
teto que indicará el desplazamiento 
sobre el índice. Similarmente, para 
IY tenemos que hay que preceder el 
código de la instrucción de HL por 
FD, todo acompañado del inevita¬ 
ble octeto del desplazamiento (LD 
(lY+des),A = FD 77 nn). 


Investigando 

Si utilizamos el mismométodo de 
búsqueda que con SLL, encontrare¬ 
mos bastantes huecos en la secuen¬ 
cia de los números de los códigos de 
las instrucciones referidas a los índi¬ 
ces. Tomemos SBC A,H (9C Hex), 
para IX e IY no hay equivalente. 
Formemos el código DD 9C que co¬ 
rrespondería, según la regla de equi¬ 
valencia, a la instrucción similar de 
IX. Si operamos con este código ob¬ 


tendremos que el contenido del oc¬ 
teto superior de IX será restado de A 
con acarreo. Indénticamente suce¬ 
de con AND II (A4 Hex), DD A4 
realizará un AND lógico entre el 
acumulador y la parte alta de IX. 
Con FD R4 obtendremos los mis¬ 
mos resultados, pero ahora con la 
parte alta del registro ]Y. 


Nuevos registros 

7’odas las instrucciones ocultas 
restantes de este grupo trabajan de 
esta forma. Todas operan con los oc¬ 
tetos altos o con los bajos de los re¬ 
gistros índices. Y lodo idéntico a las 
instrucciones que manejan H y L 
como registros independientes. Sus 
códigos serán los mismos, precedi¬ 
dos por DD si estamos utilizando al¬ 
guno de los octetos de IX, o por FD 


Estas instrucciones se 
distribuyen en dos grupos, 
las que se refieren a los 
registros índice, que son 
ias más numerosas, y las 
de desplazamiento _ 


si son las partes del registro IY las 
referencíadas. Para identificar estos 
octetos que forman parle de IX e IY 
los llamaremos XH (octeto alto de 
IX) y XL (octeto bajo de IX), análo¬ 
gamente YH e YL serán las mitades 
alta y baja de IY, respectivamente 
(H por high y L por low, es inevita¬ 
ble usar el inglés en este caso). 

Como es de esperar, debido a la 
similitud entre instrucciones, los 
cambios en los banderines, ocasio¬ 
nados por estos comandos serán los 
mismos que los forzados por las ins- 



trucciones que trabajan con H o L. 
La lista de comandos completa está 
en el cuadro 1. 

Nada espectacular 

¿Qué ventajas aportan estas ins¬ 
trucciones «nuevas»? Como ya diji¬ 


mos pueden ser utilizadas para des¬ 
pistar las incursiones de «hackers» 
dispuestos a bucearen nuestros pro¬ 
gramas, ya que no son aceptadas/re¬ 
to nocid as por casi ningún ensam- 
blador/desensantblador. También 
podemos utilizarlas para disponer 
de XH, XL, YH e YL como registros 


de 8,bits adicionales. 

Está claro que estas instrucciones 
no aportan soluciones espectacula¬ 
res a la programación en código má¬ 
quina, tomémoslas como lo que son 
y dispondremos de 98 cumandos 
más que pueden servirnos en algún 
momento. 

Joaquín Mateos 


Tabla 1: Lista de comandos ocultos de! Z-80 
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Para obtener los comandos referidos a JY, sustituir DD por FD en los códigos de ins¬ 
trucción. 











Hoy es una de esas tardes lluviosas de primavera en las que lo mejor que 
podemos hacer es sentarnos delante del ordenador para dedicarnos a nuestra 
actividad favorita, modificar programas. Esta vez se trata de ROBIN OF THE 
WOOD. Es un juego al estilo de SABRE WULF en el que encarnamos al famoso 
héroe de los bosques de Shenvood. Nuestra misión consiste en recuperar la flecha 
de plata. Para ello debemos llevar al anciano ENT (árbol con aparicneica 
humana) el dinero que le quitemos al obispo de Pcterhorough. A cambio nos irá 
entregando nuestras armas y tres flechas mágicas con las que podremos entrar en 

el castillo y cumplir nuestra misión. 



E l número de pantallas parece ser 
muy elevado aunque las podemos 
recorrer rápidamente sin excesi¬ 
vas dificultades. Los gráficos y el sonido 
están muy bien realizados. 

Para empezar, tenemos que ver cómo 
se carga para poder acceder al código 


máquina. Lo primero que encontramos 
es un pequeño cargador en BASIC que 
se puede parar sin muchos problemas. 
Contiene una línea REM con un pro¬ 
grama código máquina que carga de la 
cinta un enorme bloque sin cabecera, 
empieza en #4000y tiene #BFFO bytes. 




Fs posible que tengamos bastantes pro¬ 
blemas para manejarlo. La primera idea 
consiste en cargar sólo el principio del 
programa e intentar ver qué había en las 
variables del sistema BASIC cuando se 1 
grabó el programa. Fl intento no tiene 
mucho éxito. Lo que aparece en esta zo¬ 
na no tiene ningún parecido con las va¬ 
riables BASIC. Deben de estar enmas¬ 
caradas o corresponder con algunas ta¬ 
blas o gráficos. Tendremos que tratar de 
separar el bloque correspondiente al fi¬ 
nal del programa para ver qué es lo que 
hace cuando se lanza en #BF70. Para 
ello hacemos un cargador que lo coloca 
a partir de #3FF0, coloca el RAMTOP 
en #6FFF y hace un NEW (salto a # 
Ilb7). De esta forma conseguiremoss 
tener en memoria los últimos 32k de! 
programa. Esto no es suficiente para 
que funcione pero nos sirve para co¬ 
menzar a investigar. 

El hecho de que el bloque principal 
sea tan largo plan tea serios problemas si 



















GUIA DEL HACKER 



queremos escribir al final un cargador calizar un sitio en memoria donde colo- gun método para cargar todo el bloque 
que incluya algunas opciones nuevas cario sin que afecte a la ejecución del con nuestro programa en memoria, 
por varias razones. Primero hay que lo- resto del programa, y luego buscar al- - Analizando un poco más lo que hay en 
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PROGRAMA 2 


10 LET n=61440: RESTGRE 
30 FOR i=1000 TO 1090 STEP 10 
40 READ a$,a: LET s=0 
50 FOR j=l TO LEN a$-1 STEP 2 
60 LET d=16*(CODE a*Cj)-48-7*< 
a®(j)>"9"))+CODE a®(j + 1)-48-7*(a 
$ ( j + 1) > - 9 “ ) 

70 POKE n,d: LET n=n+l: LET s= 
s+d: NEXT j 

80 1F sOa THEN PRINT "Error 
en la linea "tí.: STOP 
90 NEXT i 

100 RANDOMIZE ÜSR 61440 
1000 DATA “310000DD2100401116A03 
EFF37CD56053EC1BC20EE213CE022EDC 
D2131F01116",3101 
1010 DATA "E00 10EO1EDB0CD24DO3E4 
4CD32D0C379BFE17E23E5FEFFC83222E 
12120E1CDE1",4555 
1020 DATA "CF3A20E 1C6043220E118E 
63A21E1C610672E202220E1C93E45CD3 
FD0CD81C£21”,3668 


1030 DATA "20202220E1CD16E0494E4 

D4F5254414CFFCDEFE03E353001AF323 

2BECD16E053",3506 

1040 DATA "494E2044494E45524FFFC 

DEFE03ED83001AF3230DFCD16E04F424 

953504F2046",3391 

1050 DATA "494A4FFFCDEFE0113E003 

80311EDE37B3226B97A3242B9CD16E04 

45255494441",3479 

1060 DATA "204255454E4FFFCDEFE03 

ED8300 1AF32BBBECD16E053494E204A4 

142414C4945",3466 

1070 DATA "53FFCDEFE03EC8CE0032F 

EDBCD16E053494E2053484552494646F 

FCDEFE03ED3",4429 

1080 DATA "30023E3832BDCFC367D0A 

FDBFE2FE61F20F83E7FDBFE2FE608201 

43EFDDBFEE6",4373 

1090 DATA "0220EFCD16E0205349FFC 

D30E037C9CD16E0204E4FFFC D30E0A7C 

92F203000",3767 


la cinta se descubre que el bloque tiene 
exactamente 48k, aunque los últimos 16 
bytes no se cargan para dejar un poco de 
sitio a la pila. Esto nos da una primera 
esperanza. Quizás los últimos bytes del 
programa no sirvan para nada y poda¬ 
mos no cargarlos, con lo que tendría¬ 
mos un poco de sitio para manipular to¬ 
da la memoria. 

Pasamos a ver qué es lo que ocurre 
cuando se lanza el programa en #BF70. 
Nos encontramos con un bucle que se 
entiende hasta #0055 y que se cierra so¬ 
bre #BF81. Tiene que ser el bucle prin¬ 
cipal y lo que hay antes de esta última 
dirección corresponde con el menú del 
principio. Este tiene dos puntos de en¬ 
trada, uno en #CD6C que se usa la pri¬ 
mera vez, y otro en #CD89 que se usa 
todas las demás. La diferencia entre es¬ 
tas dos entradas está en que en la prime¬ 
ra hay una llamada a ^8C A A que corres¬ 
ponde a la frase digitalizada que dice al 
principio y borra la pantalla. Las tablas 
de esta frase están a partir de la direc¬ 
ción jfliSÜO y son destruidas nada más 
utilizadas. Detrás de aquí no parece ha¬ 
ber nada importante. Probamos a cargar 
solamente hasta esa dirección y el juego 
funciona perfectamente. Esto nos da un 
margen importante para poder trabajar. 
Instalamos en un microdrive dos copias 
del programa, una es la que contiene 
únicamente los últimos 32k, donde está 
todo el programa, el resto son tablas y 
gráficos. La otra tiene todo el programa 
sin la pantalla de presentación colocada 


en una dirección distinta preparada para 
probar los PQKEs que encontremos. 
T rata remos de ir analizando paso a paso 
todo lo que hace desde que se lanza el 
programa, procurando preocuparnos 
más por comprender qué es lo que está 
haciendo que por descubrir algún PO¬ 
KE. Lo hacemos asi, no solamente para 
llegara un conocimiento más profundo 
del programa sino también porque para 
probar un POKE tenemos que destruir 
la copia actualmente en memoria y car¬ 
gar la otra, lo cual requiere un tiempo 
considerable. 

En la dirección #CD89 empieza la ru¬ 
tina que gestiona el menú. Lo primero 
que hace es llamar a la dirección n 
CFEE. Esta es una curiosa rutina que lo 
que es ir colocando a partir de la direc¬ 
ción n FDOO una tabla de 256 bytes en la 
que cada uno es el número de orden da¬ 
do la vuelta bit a bit. Así en la dirección 
jpFDOl coloca el dato#80 (*jí)l al revés). 
La utilidad de esta tabla debe ser para a 
partir de un gráfico (Robín mirando ha¬ 
cia la derecha) generar de forma rápida 
su simétrica (Robín mi rando hacia la iz¬ 
quierda). De esta forma se ahorran la 
mitad de los gráficos correspondientes a 
Robin, los soldados, el druida y el obis¬ 
po. También crea otra tabla con las di¬ 
recciones de pantalla en función de la 
línea de que se trata. Con esto consigue 
una mayor velocidad al no tener que cal¬ 
cular la dirección cada vez que quiere 
pintar un gráfico. 

Siguiendo con las rutinas a las que 


El largo bloque principal plan* 
con nuevas opciones. 


















llamas en esta zona nos encontramos 
con que en la dirección #DQ95 seleccio¬ 
na el modo de interrupción 1M2. La di¬ 
rección de la rutina de interrupción es# 
DFE7 y su única misión es encargarse 
de parte del sonido. 

Por lo demás aquí nos encontramos 
con un motón de llamadas encargadas 
del menú, Borran la pantalla o la copia 
de pantalla, escribir las opciones, pintar 
la espada, etc. La forma en que se mane¬ 
jan las rutinas de impresión de texto en 
pantalla es excesivamente rígida e incó¬ 
moda de usar, por lo que en el cargador 
final tendremos que incluir una que nos 
facilite esa labor. 

(Jn poco más adelante nos encontra¬ 
mos con que testea el teclado, y si está 
pulsado el 0 salta a la dirección ¿CDEC, 
Aquí ya empieza a inicial izar variables. 
Ln la dirección #BF6Fcoloca un sospe¬ 
choso jtOF. Se trata del dato que con¬ 
trola el estado de salud de nuestro hé¬ 
roe. Buscando en qué punto se modifica 
logramos el POKE de la inmortalidad, 
basta con NO pear la dirección ítlit£32. 


Hay una serie de variables que se mi' 
cializan eligiendo aleatoriamente entre 
una serie de posibles valores, Tienen 
que ser los correspondientes a los ele¬ 
mentos que cambian de una partida a 
otra, esto es, la posición de comienzo, la 
de ENT, la del sherifTde Nothingam y la 
del druida. Trataremos de identificar 
cada uno de estos. Para ello echamos un 
vistazo a cuando se utilizan estas varia¬ 
bles y nos encontramos con que en va¬ 
rias ocasiones se compara alguna de 
ellas con el contenido de #0548, que 
también se inicial iza aleatoriamente. 
Esto nos lleva a la conclusión de que es¬ 
ta última contiene el número de la pan¬ 
talla en que nos encontramos. Este nú¬ 
mero se guarda sobre dos bytes, lo que 
parece indicar que tiene un mapa de 
enormes dimensiones. Para cada panta¬ 
lla hay un byie con el cual ya accede a la 
definición de la pantalla. De esta forma 
el número de pantallas definidas en me¬ 
moria es bastante menor ya que en el 
mapa existen muchas iguales. Para sa¬ 
ber a qué corresponde cada una de las 


demás variables pokeamos el punto en 
que compara con la pantalla en que nos 
encontramos, Haciendo esto llegamos a 
las siguientes conclusiones: en ^D3B2 
se guarda la pantalla de ENT, en jfD3B4 
la de la cabaña del druida y en ^D3B8 la 
del sheriff. 

Si queremos ver el mapa completo 
tendremos que hacer un programa que 
nos permita movernos rápidamente de 
una habitación a otra. El interferiré] bu¬ 
cle principal para que en función de la 
tecla que pulsemos nos movamos en 
distintas direcciones por el mapa no tie¬ 
ne mucha dificultad. El que escriba el 
número de pantalla presenta algunos 
problemas, pero finalmente funciona y 
lo tenéis en el programa 1. Para utilizar¬ 
lo tenéis que ejecutar el programa, espe¬ 
rar un pocoaquepokeey luego cargar la 
copia original. Cuando acabe el juego 
empezará normalmente, pero si pulsáis 
la tecla O se detendrá y podréis pasar a 
cualquier pantalla pulsando las teclas 1 
a 4. También se ha incluido el POKE de 
inmortalidad y otro que permite conse- 


tea problemas al intentar escribir un cargador 
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PROGRAMA 1 


10 LET n=61440: RESTOSE 
30 FOR i=1000 TO 1040 STEP 10 
40 READ a$,a: LET s=0 
50 FOR j = l TO LEN a$-1 STEP 2 
60 LET d=16*(C0DE a$(j)-48-7*( 
a$(j)>“9")J+CODE a$C j + 11-48-7*<a 
$(j + l)>"9“) 

70 POKE n,d: LET n=n+l: LET s= 
s+d: NEXT j 

80 IF s<>a THEN PRINT "Error 
en la linea 11 ; i : STOP 
90 NEXT i 

100 RANDOMIZE USR 61440 
1000 DATA "310000DD2100401100A53 
EFF37CD56053EEBBC20EE2116E02282B 
F2138F01116",2974 
1010 DATA "E0016600EDB0AF3230DF3 
232BECD24D03E44CD32D0C379BF2A48C 
57DE60FFEOA",4020 
1020 DATA "3802C607C630327AE0253 
E2020023E313277E07D1F1F1F1FE60FC 
630FE3A3802",2684 
1030 DATA "C6073278E02175E03E603 
2F2D7CD19D63EEFDBFE1F3A74E0380A2 
FF53EEFDBFE",4417 
1040 DATA "1F30F9F13274E03CC23BC 
53EF7DBFEE60FE15FC3EDBF0070A0303 
02030",3887 











guir las armas sin necesidad de ninguna 
bolsa de dinero. 

Si seguimos investigando nos encon¬ 
tramos con que a partir de la dirección # 
D4AD está la tabla de los objetos repar¬ 
tidos por el mapa. Para cada objeto hay 
cinco bytes, de los que los dos primeros 
indican en que pantalla está, el tercero y 
cuarto la posición dentro de la pantalla y 
el quinto el tipo de objeto de que se tra¬ 
ta. A partir de # 1)595 están los códigos 
de las 8 cosas que llevamos en ese mo¬ 
mento. Buscando cuando se utiliza des¬ 
cubrimos la rutina de la dirección £ 
DF03, que es llamada directamente des¬ 
de el bucle principal. Se encarga de 
comprobar si estamos en la habitación 


de ENT. si llevamos el dinero y de dar¬ 
nos las armas. NO peando la dirección £ 
DF30 se consigue que no sean necesa¬ 
rias las bolsas de dinero. 

Buscando en las rutinas que se lla¬ 
man desde el bucle principal encontra¬ 
mos los demás POREs que se han in¬ 
cluido en el programa 2, Es un cargador 
normal que nos pregunta por los PO¬ 
KEs después dd menú de opciones. 

Nuestro análisis termina aquí, a la 
1.30 de la noche, pero quedan muchas 
cosas por descubrir. Quizás alguien se 
anime a buscarlas. 

Manuel Arana 
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VUELTA Al 


Completa tu colección de ZX. 

A continuación te resumimos el contenido de los ejemplares 
atrasados en existencia. 




El 


Núm. 7/300 ptas. 

Juegos mteligenles/Soft 
ware/ 11 programas/Li 
bros. 


Núm. 4/300 ptas. 

QL, el nuevo Sinclair. Die¬ 
ciocho programas, juegos, 
maníais, rde as/Noveda¬ 
des. 


Núm. 14/300 ptas. 

Cómo jugar a! Hobbií, 
Gráficos de funciones. Pro¬ 
gramas de ajedrez, Cone¬ 
xiones con el P l/O. Prog ra¬ 
mas Muttiplic, enseñar de¬ 
leitando, Libros, Forth, ter¬ 
cera parte. 


mixtkui 


Núm. 11/300 ptas. 

Cómo crear marcianos y 
otros monstruos. 

Dtez programas satélites 
de Júpiter, rescate, interés, 
circulo, préstamo hipoteca¬ 
rio, 


Núm. 1 7/300 ptas. 

Pvfapa de Atic-Aíac. Estira 
de caracteres, Dinámica de 
una partícula. Libros. GL 
Magazíne, Programas. 
Convertidor analógtco-di- 
gital con el P l/O. 


Núm. 8/300 ptas. 

La aventura es la avenEu- 
ra/1 2 prog ramas/Juegos y 
monta jes/Código máqui¬ 
na. 


Núm. 5/300 ptas. 

Gráficos y sonido en el 
Spectru m/Li b ros/Softwa re/ 
13 programas. 



















EJEMPLARES ATRASADOS 



' 


Bímk par» impresora 


DISPONEMOS DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE ZX 
(sin necesidad de encuademación) 


Núm, 20/300 ptas. 

Vacaciones con i rifo ma¬ 
líes. Crítica Noticias. Pro¬ 
gramas. Son muy diverti¬ 
dos. Libros. Generación do 
placas de circuito impreso. 
Forth. Movimiento armóni¬ 
co simple. Spectrurn musi¬ 
cal. 


Núm. 22/300 ptas. 

Noticias Teclados prole- 
sionales. Crítica. ¿Has pro¬ 
bado 7 Programa especial: 
procesador de textos. Ge¬ 
neración de placas de cir¬ 
cuito impreso (segunda 
parte). Programas QL espa¬ 
ñol Quinielas en Spectrurn. 
BASIC para principiantes 


Núm. 18/300 ptas. 

Rentas 85. Forth, sexta 
paite. Programas. BASIC 
nara principiantes (3). Plot- 
Irng Gráficos. Libros, Usua¬ 
rios. Crítica, 


Núm. 24/300 ptas. 

Juegos/Mapas del No¬ 
li es al Yesod y I ords ot 
Miclmght/oHas probado?/ 
Sois muy dtvertidos/Usua- 
no/Ajusté do gráficas/MulEi 
sea r(,:h/Prog rama s/Mon ta¬ 
le. inversor de video para 
/X 81/Oossier QL. 


Num. 28/300 ptas, 

Spectrurn o QL, invasión 
do tos 128/¿Cñmo utilizar 
mejor el rrnc:rodrive?ÁJue- 
gos/Mapa del Dun Darach 
y misión imposible/Progra¬ 
mación estruclurada/BA 
SIC. 


Núm, 27/300 ptas. 

La vida de Sincfeir/Pie- 
zas musicales para Spec- 
Erum/Juegos/Mapas del 
ARNHCM y SABGTEUR/ 
Areas/BASIC para i repre¬ 
so ra/El área de variable y la 
instrucción FBI 16. 



"■"fiSWtos. 


^5fr^l :>ara hacer tu pedido, rellena el cupón adjunto 
icórtalo y envíalo HOY MISMO a: 

28020-MADRID*Tel. 733 74 13 —*& 


I A, Bravo MuriHo, 377 

Los ejemplares atrasados de ZX serán una fuente constante de cono¬ 
cimientos ideas, soluciones y entretenimientos para el futuro. Todo lo 
anterior hace recomendable que los guardes ordenadamente en una de 
las tapas especiales para ZX Cada tapa puede contener 6 ejemplares 
y cuesta solamente 650 ptas 

Ruego me envíen los siguientes ejemplares atrasados de ZX . 

.....al precio de 300 ptas cada uno 

Por favor envien . tapáis) al precio de 650 ptas. cada una 

(+ gastos de envío). 

El importe lo abonare 

□ contra reembolso □ cheque adjunto □ con mi tarjeta de crédito 

□ American Exprés n Visa □ ínterbank 

Fecha de caducidad ..... ... .,. ... 

Número de mi tarjeta j , ' . ~ | ~~~ ^ ^ ; ; ~ " L"' 

NOMBRE . ........... 

DIRECCION ........ 

POBLACION...... C.P. ..... . 

PROVINCIA ....... 


(en cada tomo 
se pueden 
encuadernar 
6 números) 
































BOMB 

JACK 
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ELITE 


SPECTRUM 48 K 


Cierta organización terrorista ha 
sembrado de bombas ciertos 
monumentos de todo el mundo. 
Nadie se atreve a acercarse, 
pues en cuanto una de ellas sea 
tocada comenzará una reacción 
en cadena que hará que todas 
las demás se vayan activando. 
Sólo un ser que volara a la 
velocidad del rayo podría 
triunfar en una misión que ha 
hecho temblar a los más osados 
expertos de! mundo en este tipo 
de operaciones. 

De pronto: 

zzzZZZCHHOWSSSsss ¿un 
pájaro? ¿un avión?, ¡no! es 
Super-ratón que llega dispuesto 
a librar al mundo de la plaga 
que intenta acabar con el 
equilibrio y la paz. Debes 
ponerte en su Superpellejo, y, 
aprovechando sus 
Superpoderes, intentar 
desactivar el mayor número de 
bombas posible. Eso si, tendrás 
que esquivar a la serie de 
«personajillos» que intentarán 
evitar que lo consigas, son de la 
más ruin calaña del planeta y 
han conseguido la ratonita, 
única substancia capaz de 
vencer a tus Superpoderes y 
que acabará con una de tus 
cinco Supervidas en cuanto te 
toque. 

En todo caso lo que hace 
atractivo a este juego no es 
tanto la parte gráfica como la 
rapidez y suavidad de 
movimientos del protagonista, 
que hace que, a poco que lo 
controle, el usuario se sienta 
todo un Superusuario dando 


botes de un extremo al otro de 
la pantalla. 

El mayor cúmulo de puntos lo 
lograremos si desactivamos las 
bombas en el orden correcto, es 
decir, primero las que estén 
encendidas. Hay que prestar 
atencióna los dicos que 
aparecen de tanto en tanto por 


el extremo superior derecho de 
la pantalla; la «P» inmoviliza 
unos segundos a nuestros 
enemigos y nos permite 
convertirnos en atacantes, la «E: 
da una vida extra y la «B» da 
puntos. 

Entretenido y tremendamente 
adjetivo. 
































FINDERS 

KEEPERS 

PRO SOR _ 

SPECTRUM 48 K 


Dro es la firma encargada de la 
distribución en España de los 
productos de Mastertronícs, 
casa inglesa que comenzó la 
guerra de los precios y a la que 
parece que le ha ido bastante 
bien allá por el Reino Unido. 
Aparecen en España sus cintas 
a un precio algo por encima de 
las 700 ptas.; todo un logro en 
juegos que, sin llegar al nivel de 
calidad de los últimos grandes 
éxitos, no están nada mal. 
Pertenece Flnders Keepers a la 
categoría de los juegos de 
arcade-aventura, pues no sólo 
deberemos ser diestros en el 
manejo del joystlck, sino que 
también habremos de recorrer 
metódicamente los laberintos 


recogiendo los objetos más 
Interesantes y comerciando para 
conseguir reunir un buen tesoro 
para nuestro rey. 

Y es que el argumento tampoco 
está falto de originalidad: resulta 
que llega el dia del cumpleaños 
de la hermosa princesa del reino 
de Ibisima y el rey no ha 
encontrado ningún obsequio 


que pueda satisfacerla. 
Desesperado ha recurrido a ti, 
caballero mágico del reino, para 
que busques en el temido 
laberinto perdido los famosos 
tesosros que en él se hallan. 
Consta el juego de tres fases 
distintas: primero aparece el 
protagonista en el palacio junto 
al rey, desde donde debe ser 
teletransportado a las cercanías 
del laberinto. Una vez allí ha de 
pasar varias pantallas al estilo 
del mítico Manic Miner para 
llegar a la parte donde cambian 
por completo la forma de 
moverse del personaje y el 
cambio entre pantallas. 

Son estos cambios en la 
estructura del programa, junto al 
buen gusto demostrado en la 
parte gráfica, las principales 
virtudes del juego, que se 
muestra muy completo también 
en otros detalles, especialmente 
los que atañen a la presentación 
al comienzo del mismo. 

Nos encontramos, pues, ante 
una cinta muy interesante por su 
excelente relación calidad- 
precio, no es por nada por lo 
que ha conseguido ser «number 
one» en ventas en las listas 
inglesas del pasado año. 

























PHANTOMAS 


DINAMIC 


SPECTRUM 48 K 


Todo comenzó en el año 2077. 

El programa para desarrollo de 
mutantes de la base científica de 
Gurnar había sido un éxito y el 
ordenador para la reproducción 
masiva creó el primer 
Phantomas, un muíante 
especializado en el robo, en el 
saqueo y en el pillaje. Este ser, 
dotado de una inteligencia 
privilegiada para eludir su 
captura por el enemigo, iba a 
ser utilizada en la batalla sideral 
de las tunas rojas de Alfa- 
Centauri. 

Pero he aquí que el simpático 
Phantomas consigue escapar de 
sus creadores y, siguiendo sus 
primarios instintos, se lanza a 
una carrera de ladrón 
profesional con el único fin de 
atesorar riquezas. Enterado de 
la existencia de un fabuloso 


tesoro que el avaro millonario 
Goldter ha acumulado en su 
mansión durante siglos, se 
dirige hacia ailí dispuesto a 
librarle de tanto peso. 

Nuestra misión es dirigir a este 


curioso ser a lo largo y ancho 
del planeta clónico Earth- 
Gamma, que se compone de 
tres partes principales: una base 
espacial con naves de distintas 
épocas que podremos usar para 
ciertas cosas, el palacio de Mr. 
Goldter, repleto de trampas, 
enemigos y toda clase de 
peligros, y el Mundo 
Subterráneo, habitado por todos 
los familiares del millonario que 
se encuentran encerrados en 
criptas. 

Los movimientos que 
podemos dar al protagonista 
son los típicos del conocido 
Manic Miner. Al contrario 
que en la mayoría de los juegos 
de este tipo, las caídas desde 
grandes alturas no afectan en 
absoluto a nuestro héroe. 

El nivel gráfico es bueno, 
denotando una cierta clase. 

Cabe destacar la variedad de 
formas y conjuntos, así como la 
extensión del mapa. Aunque no 
alcanza la perfección técnica de 
los grandes best-sellers del 
momento, puede catalogarse 
como un buen juego. 





















utilización que se hace de 
«iconos», seleccionables con un 
cursor dirigido con ei joystick o 
el teclado, para manejar todas 
las opciones del juego. De esta 
forma el usuario no necesita 
aprender a qué tecla 
corresponde cada cosa, y puede 
guiarse por los dibujos y jugar 
sin preocuparse de las barreras 
ideomáticas en este sentido. 
Desgraciadamente las 
instrucciones del juego no están 
traducidas, ni tampoco los 
escasos mensajes que aparecen 
a lo largo de la aventura. 
Comienza a ser crónico que 
las casas de soft dejen de 
preocuparse de estos temas por 
buscar el negocio fácil. 

En cuanto a todo lo demás, no 
puede achacársele gran cosa. 
Dispone de opciones para 
diferentes tipos de interfaces, 
joystick, buen sonido (incluida 
una larga, graciosa y polifónica 
melodía inicial), excelentes 
gráficos, velocidad, complejidad, 
un mapa completo, un 
argumento interesante,..., 
esperemos que sigan 
apareciendo juegos de este tipo 
de aquí en adelante. 


ENIGMA 


FORCE 


BEYOND 


bastante en que sea una 
aventura mucho más entretenida 
de lo habitual, y tenga ese 
interés especial que necesita 
este tipo de juegos para tener 
éxito. 

Toda la estructura del programa 
es bastante innovadora. Lo más 
llamativo quizás sea la 


SPECTRUM 48 K 


Nos topamos en esta ocasión 
con uno de esos programas que 
merecen ser catalogados en un 
rincón especial. Continuación 
del conocido Shadowfire, una de 
esas «segundas partes» de la 
que se dice que nunca fueron 
buenas, Enigma Forcé va más 
allá de aquél, logrando unos 
niveles de calidad difícilmente 
superables. 

Aunque el juego tiene más de 
aventura que de acción, no 
carece de esta, y consigue que 
se pasen las horas frente a él 
con una velocidad pasmosa. El 
hecho de que tengamos que 
manejar a cuatro personajes a 
un mismo tiempo influye 



















































Escoger el interface Centronics ideal puede plantear mayores 
dudas que la elección de una impresora. Para ayudarle en tu 
decisión analizaremos tres de los más usados, los cuales 
representan tres formas de entender el concepto de interface. 


A dquirir una impresora 
es un paso importante 
de cara a poseer un 
buen equipo informá¬ 
tico. Poder obtener re¬ 
sultados en papel es 
muy interesante para ciertos traba¬ 
jos, y a su vez, hay programas y apli¬ 
caciones en los que imprimir datos 
es objetivo prioritario (Tratamiento 
de textos. Hojas de cálculo, progra¬ 
mas de diseño, etc.). De las carac- 
terístias de las impresoras, la veloci¬ 
dad de impresión es, y sobre todo de 
cara a su utilización en ordendores 
pequeños, el aspecto fundamental a 
la hora de decidir, incluso por enci¬ 
ma de la calidad de letra. Para mejo¬ 
rar esta velocidad, se adoptó en los 
canales de comunicación ordena¬ 
dor-impresora la transmisión de los 
datos en paralelo, 8 bits a la vez, en 
vez de en serie, bit a bit. El SPEC- 
TRUM no posee una salida en para¬ 
lelo, como otros ordenadores, para 
poder conectar periféricos, por lo 
tanto si vamos a utilizar una impre¬ 
sora que trabaje en paralelo necesi¬ 
taremos un interface que nos permi¬ 
ta comunicarnos con ésta. 


Tres tipos de interfaces 

Vamos a analizar tres interfaces 
paralelo Centronics para impresora. 


El interface PIN necesita 
cargar software en 
memoria para funcionar 
correctamente 


Cada uno de ellos tiene una forma 
particular de trabajar, posiblemen¬ 
te, cualquier otro interface de este 
tipo funcionará con el mismo es¬ 
quema que alguno de estos tres. En 
primero lugar estudiaremos el 
CENTRONICS PIN, para poder tra¬ 
bajar con él hay que cargar en me¬ 
moria desde cinta, y activar, una ru¬ 
tina en código máquina, que se su¬ 
ministra con el interface. El segun¬ 
do es el CENTRONICS de INDES- 
COMP, en este caso el software ne¬ 
cesario para controlar la impresora 
se encuentra en el propio interface, 
encargándose éste de colocarlo en 
memoria. Por último, el KEMPS- 















¿cual? 



TON CENTRONICS realiza sus 
funciones desde el propio interface. 
Como vemos tres formas diferentes 
de realizar el mismo trabajo. 


Se necesita un Spectrum 
48K para utilizar el 
interface Centronics 
Indescomp 


CENTRONICS PIN 


Junto con este interface se sumi¬ 
nistra la cinta que contiene las ruti¬ 
nas que harán funcionar el interfa¬ 
ce. Sólo es necesario cargar una de 
éstas, cada una está adaptada para 
realizar copias de pantalla en una 
impresora de las más usuales en el 
mercado español. Estas rutinas sólo 
se diferencian en el uso de COPY, 
los comandos LPR1NT y LLIST 
funcionarán en cualquier impreso¬ 
ra, independientemente de la rutina 
cargada, de hecho, no hay rutinas 
para todas las impresoras, en aque- 










Has impresoras para las que existe 
una rutina en la cinta (Cuadro 1). 
Con estas rutinas podemos ajustar 1 
el número de columnas a imprimiry 


Se puede obtener un 
informe en pantalla del 
status del Kempston 

cambiar el código de salto de línea 
(LF), mediante POKE's, pues estos 
controles están situados en el pro- 
granja que controla el interface, que 
se encuentra en memoria. Para po¬ 
der enviar códigos de control a la 
impresora (CR= retorno de carro, 
LF= salto de linea, ESC, etc.) es ne¬ 
cesario asignar el código a un carác¬ 
ter gráfico, mediante POKE 64704+ 


1 


CODE “carácter gráfico”,n; así esta¬ 
mos colocando el código de control 
cuyo número es n, en el gráfico que 
hay entre comillas. Ahora, basta im¬ 
primir el carácter gráfico que contie¬ 
ne el código de control para que la 
impresora realice la función de éste. 
Entre las rutinas que acompañan al 
interface hay una relocalizable. Su 
principal diferencia con las anterio¬ 
res es que permite enviar códigos de 
control directamente con CHR$. 
Por ser relocalizable podemos si¬ 
tuarla en cualquier parte de la me¬ 
moria y así utilizar el interface con 
sólo 16K, pues las otras rutinas se 
ubican en los últimos octetos de las 
32K superiores. También es posible 
asinar el código de LF, pero en cam¬ 
bio no puede realizar copias de pan¬ 
talla, no podemos utilizar COPY. 
En el aspecto del diseño del interfa¬ 
ce hay que decir que no incorpora 


conector posterior, por lo que éste 
debe conectarse en último lugar en 
el portdel SPECTRUM. Como pun¬ 
to negativo, hay que lamentar que el 


Las copias de tamaño 
doble con el interface 
Kempston se hacen 
apaisadas 


cable paralelo que conecta el inler- 
face con la impresora esté incrusta¬ 
do en el accesorio. Este es un gran 
fallo, pues si por cualquier motivo el 
cable se deteriora, necesitaremos 
cambiar todo el interface, pues es 
una parle solidaria de él. 

CENTRONICS INDES- 
COMP 

Este interface tiene dos vías de 
comunicación. Paralelo Centronics 
y serie RS 232-C bidireccionai. Am¬ 
bas pueden conectarse a diferentes 
periféricos, una impresora y un 
MODEM. El software que lo hace 
funcionar está grabado en una 
EPROM (Erase and Programmable 
ROM = ROM programable), y al dar 
corriente al SPECTRUM, este soft 
es volcado en la parte superior de la 
memoria a partir de la dirección 
64516. Por lo tanto sólo podemos 
utilizar este interface con un SPEC¬ 
TRUM de 48K, En su parte superior 
tiene un interruptor con dos posi¬ 
ciones, si se encuentra en la 2 al en¬ 
cender el ordenador, el software 
cargado en memoria es válido para 
impresoras como NEC, EPSON, C- 
ITOH, etc. Si está en la posición 1 el 
software sólo es válido para la GP- 
100 de SE1KOSH A. Una vez en me¬ 
moria el software adecuado, debe¬ 
mos activarlo ejecutando RANDO- 
M12E USR 64973. Si fuéramos a 
realizar copias de pantalla en impre¬ 
soras EPSON, ADMATE, LOGI- 
TEC, deberíamos, además, colocar 
un 4 en la dirección 64254 (POKE 


Cuadro 2. 

Informe en pantalla del estado del KEMPSTON 
CENTRONICS 


SWITCHING COMMADS NO. 7F 
COPYtREM 
=OTEXT 
=* 1SEIK100 
=& 2SEIK 250 
=# 3 EPSON 
4EXTRA 

CHR$ TOKENS 0-1 
' ENLARGED 0-1 
27 (ESC) 0-1 
/ LF STATUS 1 101 


















Cuadro 1. Relación de impresoras y tipos de COPY 
que proporcionan las rutinas del PIN I/F CENTRONICS. 

IMPRESORAS 

TIPO DE COPY 

SEIKOSHA GP-550 

COPY 

COPY de grises 

SEIKOSHA SP-1000 
SEIKOSHA SP-800 
RITEMAN F+ 

COPY TAMAÑO NORMAL 

COPY TAMAÑO DOBLE 

COMPATIBLES EPSON 

COPY TAMAÑO NORMAL 

COPY TAMAÑO DOBLE 


64254,4), para indicar el tipo de im¬ 
presora gráfica que estamos utili¬ 
zando. 

A partir de este momento los co¬ 
mandos LPRINT y LLIST funcio¬ 
narán correctamente para cualquier 
impresora, salvo que LPRINT no 
reconoce AT. Es posible seleccionar 
el envío de LF (salto de línea), pero 
para ello es necesario alterar parte 
del software contenido en la parte 
alta de la memoria mediante PO- 
KE’s en 5 direcciones. 

Para realizar copias de pantalla no 
se utiliza la instrucción COPY, para 
obtener una copia en tamaño nor- 


Lo más importante para el 
comprador es que el 
interface aproveche las 
funciones de su impresora 


mal ejecutaremos RANDOMIZE 
USR 65044, y en tamaño doble: 
RANDOMIZE USR 65047. En este 
tamaño las copias se imprimen con 
32x16=512 puntos de anchura. Co¬ 
mo las impresoras suelen tener para 
cada carácter una matriz de 7*5 pun¬ 


tos y 80 caracteres por línea, sólo 
disponen, por lo tanto, de 80*5=400 
puntos de anchura, con lo cual en 
las copias tamaño grande faltan 112 
puntos, el CENTRONICS INDES- 
COMP es el único de los tres que 
dispone de un conector posterior, 
por lo tanto puede colocarse en pri¬ 
mer lugar en el port de expansión. 

KEMPSTON CENTRO¬ 
NICS 

Este interface presenta una con¬ 
cepción bastante diferente a los 
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dos anteriores. En aquellos era ne¬ 
cesario cargar soft en memoria para 
controlar sus funciones, bien sea 
desde una cinta, o bien desde una 
EPROM del interface. En ei 
KEMPSTON, por el contrario, es el 
propio interface el que se controla, 
por lo tanto la memoria queda libre. 
En aquellos, como los controles es¬ 
tán en posiciones de memoria, po¬ 
díamos cambiar ciertas característi¬ 
cas de impresión, con sólo hacer 
POKE en esas posiciones. Aquí, 
aunque esos controles están en el 
interface, también es posible. Te¬ 
cleando COPY:REM?, obtenemos 
un informe en pantalla del status del 
interface (Cuadro 2). Primero, po¬ 
demos seleccionar modo texto, o un 
tipo de impresora en particular. Si 
sólo vamos a utilizar los comandos 
LPRINT y LLIST podemos mante¬ 
nernos en el modo 0 TEXTque hará 
trabajar copias de pantalla, debemos 
seleccionar en el interface la impre¬ 
sora con la que trabajamos, en este 
caso LPRINT, LLIST y COPY sólo 
funcionarán con esa impresora y sus 
similares. Estas opciones se activan 
con la instrucción COPY:REM = 
simb, donde simb representa a un ti¬ 
po de impresora (espacio-TEXTO, 
«-SEIKGSHA 100, &-SEIKOSHA 


250, =-EPSON y ! alguna otra im¬ 
presora que no sea del tipo 
«SWITCH», interruptor, es deicr, 
tenemos dos opciones y sólo una de 
ellas puede estar activada, 

Primero, CHR$-TOKENS, en el 
modo 0 está activa la opción CHR$, 
en este caso se imprimen los carác- 
teres que representa cada código 
ASCII. De esta forma no podríamos 
listar un programa, pues es almace¬ 
nado en memoria como TOKENS, y 
no con sus carácteres. Si ponemos 
este switch a 1 se activa la función 
TOKENS, de esta forma los TO¬ 
KENS se amplían hasta obtener ei 
comando al que representan, y así 
poder obtener listados. Esta función 
es la activa al encender el interface. 
La siguiente opción es la de copias 
en tamaño doble (ENLARGED), 
con la peculiaridad de que las copias 
grandes se realizan a lo largo, para 
no tener que truncar las últimas co¬ 
lumnas. Es decir, los laterales de la 
pantalla son los que se copian en di¬ 
rección horizontal, es una copia 
apaisada. Inicialmente está activa la 
copia normal. Es posible colocar o 
no el carácter de ESCAPE como 27, 
inicialmente es así. Y la última op¬ 
ción es la de LF, según sea necesario 
en nuestra impresora podemos ha¬ 






Interfar.e 
Centronics 
de Pin Soft 


cer que el interface envíe el salto de 
línea (LF) o no. 

Este interface no necesita iniciali- 
zación, puesto que no carga softwa¬ 
re en memoria, por lo tanto está acti¬ 
vo siempre, en cuanto es conectado. 





















facilidades de COPY para un buen 
número de impresoras, así como la 
posibilidad de ajustar el número de 
columnas, que ninguno de los otros 
tiene. También que podemos utili¬ 
zarlo con un SPECTRUM 16K, gra¬ 
cias a su rutina relocalizable. La otra 
cara de la moneda es que por posibi¬ 
litar opciones de hardcopy a muchas 
impresoras, resulta bastante tedioso 
cargar el software desde la cinta ca¬ 
da vez que se utiliza el interface. El 
punto negro del diseño consiste en 
la incrustación del cable en la carca¬ 
sa del interface. 

El 1NDESCOMP no tiene gran¬ 
des fallos, pero no tiene grandes vir¬ 
tudes, se mantiene en una gris línea 
media, realiza su trabajo sin ale¬ 
grías. Es un punto a favor que aporte 
una salida RS 232-C, aunque casi 
nadie la pueda utilizar, y que tenga 
conector posterior. Su software ocu¬ 
pa memoria, pero no es necesario 
cargarlo desde cinta. El KEMPS- 
TON es quizás el más perfecciona¬ 
do, no aporta tantas variedades co¬ 
mo el PIN, pero es fácil y muy có¬ 
modo de manejar. Gracias a su in¬ 
forme de estado en pantalla, sabe¬ 
mos siempre qué opciones tenemos 
activas, a la vez que realiza las fun¬ 
ciones de menú de ayuda para los 


comandos de selección. No ocupa 
memoria y proporciona copias en 
tamaño grande apaisadas, sin cortar 
las últimas columnas, éstas son sus 
mejores cualidades, que quizás le 
colocan sobre los otros. En la parte 
negativa, sus pocas opciones de im¬ 
presoras, aunque hay que tener en 
cuenta que fue uno de los interfaces 
CENTRONICS pioneros, el más 
antiguo de los tres que hoy tene¬ 
mos. 


Conclusión 

Como hemos visto, son tres con¬ 
ceptos diferentes de hacer funcio¬ 
nar un interface. Los tres proporcio¬ 
nan aproximadamente las mismas 
posibilidades, quizás su diferencia 
más representativa es la facilidad 
que se otorga a una u otra impreso¬ 
ra. Por esto, el aspecto más impor¬ 
tante para el posible comprador, es 
que su impresora esté bien «atendi¬ 
da» por el interface. Si uno de estos 
proporcioona más opciones y apro¬ 
vecha mejor las posibilidades de la 
impresora, esa debe sef sy ejeccipp. 

Joaquín Mateos Lago 


Interfece 
Centronics 
Kempston E. 


Critica 

Pasaremos revista ahora a los 
puntos positivos y negativos de cada 
interface. Del PIN resaltaremos las 


Jnterface Centronics Indescomp. 























PROGRAMAS 

TABLAS DE VERDAD 


A quien en sus clases de filosofía se le haya atragantado 
alguna vez el cálculo lógico, es posible que le resulte útil 
este programa. Permite hallar la tabla de verdad de 
cualquier expresión lógica con hasta cinco variables 

preposicionales posibles. 


El programa es corto y fácil de ma¬ 
nejar; sólo hay que poner cuidado a 
la hora de copiarlo para hacerlo al píe 
de la letra y respetando cada número 
de línea. No sólo resultará útil para 
los interesados en la lógica proposí- 
cional y el álgebra de Bool, sino que 
también podría ser utilizado para co¬ 
menzar con el estudio de la electró¬ 
nica digital desde su base, las puertas 
lógicas. 

Cuando lo ejecutemos, el progra¬ 
ma nos pedirá unos segundos mien¬ 
tras copia el juego de caracteres en 
RAM, para poder así modificar algu¬ 
nos de ellos y conseguir los signos es¬ 
pecíficos que se utilizan para los ope¬ 
radores o conectores. Tras esto, apa¬ 


recen en pantalla las teclas que ha¬ 
bremos de usar para conseguir cada 
uno de estos signos y se nos pide que 
introduzcamos la expresión de la que 
queramos hayar su tabla. Esta expre¬ 
sión podrá utilizar hasta cinco varia¬ 
bles, y cada una de éstas podrá repe¬ 
tirse varías veces; podrán usarse tam¬ 
bién todos los paréntesis que sean 
necesarios, siempre que se respete el 
orden correcto. 

Cuando terminemos de teclear la 
expresión lógica, habrá que pulsar 
ENTER para que el ordenador se dé 
por aludido; tras esto el programa 
efectúa un chequeo de la expresión, 
indicando el error (si lo hubiera) con 
un interrogante tras el punto donde 


falle la sintaxis. Se tomará como no 
válido el utilizar variables distintas 
de p, q, r, t o s, usar como conector 
un carácter que no lo es, alterar el or¬ 
den correcto de los elementos, no ce¬ 
rrar tantos paréntesis como se hayan 
abierto, etcétera. Si la expresión es 
correcta se da salida por pantalla a su 
correspondiente tabla.de verdad y se 
espera a que se pulse una tecla para 
comenzar de nuevo pidiendo una 
nueva expresión. 

Sólo resta desearos que podáis 
convencer a vuestro profesor para 
que os permita llevar el Spectrum a 
vuestros exámenes de Filosofía. 

Luís Gala 


10 SEM TABLAS BE VERDAD 

20 POKE 23658,0: OVER 1 
30 PRINT FLASH 1;AT 10,4;" UN 
HOHENTO, POR FAVOR " 

35 

40 REM Modificar juego caract. 


45 

50 FOR n=0 TO 770 

60 POKE 30000+n,PEEK (15616+n) 

70 NEXT n 

80 FOR n=0 TO 2: READ X 
90 FOR ■— 0 TO 5: READ y 
100 POKE 30000+x+ii, y 


I 












110 NGXT m ¡ NEXT n 

115 

120 REH instrucciones 

125 

130 CLS : BEEP .1,30 

135 PEINT * B TABLAS DE V 

ERDAD. PATATITA SOFT" 

140 PRINT INTRODUCE UNA EXPR 
ESION LOGICA UTILIZANDO ESTAS 

TECLAS:" 

150 PRINT * ■ « »y ii » como con j U 

ntor" 

160 PRINT " v"" cobo disyu 

ntor inclusivo" 

170 PRINT ’ " ""u"" como disyu 

ntor exclusivo" 

180 PRINT ,M como negad 

or H 

190 PRINT *" como condi 

ctonal" 

200 PRINT como bicon 

dicional" 

210 PRINT • " Puedes utilizar p 
arentesis y p,q,r,s,t como 

variables." 

220 POKE 23606,48 : PQKE 23607 
, 116 


iih v hh COBO disyu 

""w"" como disyu 
como negad 


»»_«» como bicon 


225 

230 REM input-test 
235 

240 LET vars=0: LET c*="" 

250 LET y=1: LET z=0 
260 INPUT LINE a* 

270 IF a$="" THEN GO TO 260 
280 LET b$=a$ 

290 FOR n=1 TO LEN a* 

300 LET x=CODE a$(n) 

310 IF x<33 OR x=40 OR x=41 THE 
N LET z=Z'(x=40)+lx=41t : GO TO 
480-40* (NOT y AND x=40 OR y AND 
x=4 1) 

320 IF x=45 THEN LET b*(n)=CHR 
* 195: GO TO 470-30*N0T y 
330 LET y=y+l 

340 IF x=61 THEN GO TO 470 
350 IF x= 118 THEN LET b*(n)=CH 
R$ 197: GO TO 470 
360 IF x=121 THEN LET b*(n)=CH 
R* 198: GO TO 470 
370 IF x=119 THEN LET b*<n)=CH 
R* 201: GO TO 470 
380 IF x=94 THEN LET b*(n)=CHR 
$ 199: GO TO 470 
390 FOR n= 1 TO vars 


LET b*(n)=CH 



















400 IF x=C0DE c*(») THEN LET y 
-y-2t G0 TO 470 
410 NEXT n 

420 IF x> 111 AND x< 117 THEN LE 
T c*=c*+CHB* x: LET vars=vars+l: 
LET y~y-2= GO TO 470 
425 

430 1EH error sintaxis 
435 

440 PEINT )Oia$( TO n>i FLASH 1 
FLASH Oia«(n+l TO ) 

450 BEEP .2,-101 PAUSE O 
460 GO TO 240 

470 IF y=-1 01 y=2 01 z=l THEN 
GO TO 440 
480 NEXT n 

490 IF y 01 z THEN LET n=n-l: 
GO TO 440 
495 

500 KEH ejecución 
505 

510 CLS : PEINT i" *ta*;**’" 
-ic*’ 1 

520 F01 n=0 TO 2^vars-l 
530 IF n=16 THEN PEINT AT 3,18 
tc$* ’ 

540 LET y=n 


550 LET d*="" 

560 FOE e=l TO vars 
570 LET x=INT (y/2> 

580 LET d*=STE$ (x<>y/2)+d* 

590 LET y=x 

600 NEXT n 

610 FOE ■=! TO vars 


620 

LET x=VAL d$(n) 


630 

IF c$(nJ="p" 

THEN 

LET p=x 

640 

IF c*(*)="q" 

THEN 

LET q=x 

650 

IF c*<■) = "r * 

THEN 

LET r=x 

660 

IF c$U)-"s" 

THEN 

LET s=x 

670 

IF c$(i)="t N 

THEN 

LET t—x 

680 

NEXT m 



690 

PEINT " "idtí" 

*;VAL b$. 

*700 

NEXT n 



710 

BEEP . l,30t 

PEI NT 

ÍOíTAB 6! 

"PULSA UNA TECLA" 



720 

POKE 23606,0 

: POKE 

23607,60 


730 PAUSE OJ GO TO 130 
735 

740 1EH caracteres modificados 
745 

750 DATA 233,0,36,66,255,66,36 
760 DATA 714,16,40,40,68,68,0 
770 DATA 497,0,8,4,254,4,8 
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VI cenjunfotf* 
ItanMbrot 


¿/Si/íOí? /. Fravttii topo de nieve 

100 UINDOM 512,256,0,0 
110 WOBE 4:WER 0 

i?o as 

130 PENDOWN: TtlRKTO 0 
140 UNE 40,00 
150 FOH j - 0 TO 3 
160 m i 2 l T0 4 

170 linea j,60 
180 TURN -90 

190 END FOR i 
200 PAUSE 
2Í0 END FOR j 
220 STOP 
230 : 

240 DEFine PKOCedure linea 1n p IongI 

250 LOCal long4 

260 IF fi = 0 

270 NOVE iDfig 

2BÜ RETurn 

290 ELSE 

300 lort94 = Long / 4 

310 linea n-l l íong4 

320 TURN 90 

330 linea n-l^ong* 

340 TURN -90 

350 linea n-ljlDng4 

360 TURN “90 

370 linea tH, iong4 

3S0 linea n-i^long4 

39ü TURN 90 

400 linea íH, 1ot>94 

410 TURN 90 

420 linea ñ-1*long4 

-430 TURN -90 

4^0 linea rHjltmgl 

450 END IF 
460 END DEFine linea 


¿Cuánto hay de aquí al 
puerto más cercano? 
—preguntó el pescador desde 
su barca al caminante. 
Depende cuán próximo vaya 
a la orilla —contestó éste. 

Esta extraña conversación entre 
un pescador y un caminante nos 
permite introducirnos en un tema 
fascinante y complejo —¿Cuál es la 
longitud de la costa de un país?— De 
la respuesta del caminante podemos 
deducir que depende de cuán fina* 
mente midamos. Es un hecho cier¬ 
to, que al observar un mapa de una 
costa a gran escala vemos una distri¬ 
bución de cabos y golfos, asombro¬ 
samente parecida a la de un mapa 
visto a pequeña escala; en los dos 
casos aparecen entrantes y salientes 
de la misma escala de magnitud que 
la de observación. Se dica pues que 
lá costa marítima es una línea frac- 
tal, esto es, que independientemen¬ 
te de cuán cerca la observemos pre¬ 
senta siempre el mismo aspecto. 

No es único este ejemplo. En ma¬ 
temáticas se conocen desde hace 
mucho tiempo definiciones para las 
curvas que integran objetos más o 
menos extraños como son curvas a 
punlitos, o con picos. 

Cada vez que se encontraban los 
matemáticos con objetos que pare¬ 
cían curvas, pero que no eran «cur¬ 
vas a simple vista» era preciso am¬ 
pliar la definición del concepto de 
curva para incluir o eliminar estos 
nuevos objetos. 

Cuando aparecieron curvas con 


picos, los matemáticos pensaron 
que estas curvas se portarían razo¬ 
nablemente bien, ¡cuán equivoca¬ 
dos estaban! En la segunda mitad 
del siglo pasado empezaron a apare¬ 
cer curvas que tenían picos ¡¡en to¬ 
dos sus puntos!! Una de las curvas 
más extrañas fue la presentada en 
1890 por Giuseppe Peana. Esta cur¬ 
va tenía la propiedad de pasar por to¬ 
dos los puntos interiores y de la 
frontera de un cuadrado que la con¬ 
tenía, y si bien la curva es totalmen¬ 
te continua (no contiene saltos) es 
totalmente imposible determinar la 
dirección que seguirá en ninguno 
de sus puntos. 

Posteriormente aparecieron otras 
curvas de este tipo, curvas a las que 
se dio el nombre genérico de «Cur¬ 
vas de Peano», de las que es corrien¬ 
te encontrarse ejemplos de curvas 
abiertas y cerradas. 

Hn el caso de las curvas de Peano 
cerradas (como las gomas elásticas), 
se presenta otra dificultad, no se 
puede distinguir qué puntos del 
cuadrado están dentro y cuáles fue¬ 
ra de la superficie encerrada por la 
curva. 

Para ver un ejemplo de una de es¬ 
tas fronteras exóticas sígase la si¬ 
guiente receta; 

Cójase un cuadrado de tamaño 
medio. Métase en la cacerola a fue¬ 
go... (...) Un momento, creo que me 
estoy liando. 

Cójase un cuadrado de tamaño 
medio. Tómese cada una de sus 
cuatro aristas y (sí, ahora va bien) 
divídase en cuatro trozos iguales. 
Sustituyanse los dos trozos interme- 


Qt? 












dios por sendos cuadrados de arista 
la longitud de uno de los trozos que 
estamos eliminando (y eliminando 
el lado que reposa sobre la arista ini¬ 
cial), dejando uno de los cuadrados 
hacia adentro y otro hacia afuera. 
Obtenemos así una curva en «copo 
de nieve cuadrado», que es genera¬ 
da por uno de los programas que 
acompañan este artículo (para ver la 


relación, dependiendo de la profun¬ 
didad no se borran las fases inicia¬ 
les, cosa que puede remediarse con 
un buen CLS). 

Iterando obtenemos una curva 
muy curiosa con las propiedades si¬ 
guientes: el perímetro de! cuadrado 
es ahora de longitud infinita (tan 
grande como se quiera) pues en ca¬ 
da iteración hemos doblado su lon¬ 


gitud; sin embargo, aquí está lo sor¬ 
prendente: la superficie encerrada 
por la nueva frontera es exáctamen- 
te igual a la del cuadrado original 
por haber añadido en cada iteración 
lo mismo que se quita. 

Lo mismo que en el caso de cur¬ 
vas, el comportamiento fractal apa¬ 
rece en muchos otros objetos mate¬ 
máticos, entre otros el llamado cün- 
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520 
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IF *1-1000 THEN RETurn (01 
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610 
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IF y\ } m THEN RETurn (61 

340 
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660 

: 

2£0 

ÉSO DtFire reliara 
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2$ r 


630 

*1 = 0 

300 

OEFBe PROCedure bisecy (xl,yll J y2l ) cll,i:2ll 

690 

yl í 0 

310 

LOCal xccjyci,yc2 

700 

bot 

3?0 

tcc - XI Hx f ti 

710 

EN? REPeat loza 

m 

yti = yi My 1 1255 - IfiTÍ(ylX*yZV/2M 

720 

B‘i5 BF-ine auienta 

m 

yr? = yí + dy 1 1255 - /2P-11 

730 

: 

350 

IF di = c21 THEN 

740 DEFine PROCedure box 

360 

Urea xljll^ljZl.dl 

750 

ÍLOCK ddHil>*MV 

370 

EL5E 

760 

BLGCK 2,d ? t,n*(l«í-2jyí,7 

360 

IF [yZl-yBí = 1 THEN 

770 

BIOCK í1,!,xt,y*+dyl-i,7 

390 

BLtfCK 2,1 jy cd tari IcllJ 

780 

BLOCK s.dy*,' 

400 

HL0CK Z J l í Zt*I,yai l Mlort r C 2%> 

7R0 EHD DEFine kvt 

410 

ELSE 

m 

: 

430 
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B10 BEF¡re PRPCedure nuevo 
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ENO IF 
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junto de Mandelbrot, llamado asi en 
honor de Benoit B. Mandelbrot, in¬ 
vestigador de IBM en Nueva York, 
que ha impulsado enormemente el 
estudio de las figuras fractales como 
la mostrada antes. En el caso del 
conjunto de Mandelbrot, calificado 
por John H. Hubbard de la Univer¬ 
sidad de Cornell como «El objeto 
más complicado de las matemáti¬ 
cas», no es una curva la que muestra 
comportamiento fractal, o por lo 
menos no una curva en el sentido 
tradicional, pues se trata de un con¬ 
junto de punto del plano complejo, 
y si bien su representación es un po¬ 
co sosa, haremos una serie de panta¬ 
llas bonitas que se podrá bien foto¬ 
grafiar o bien sacar a impresora con 
una rutina como la que se publicó 
en un número anterior de TODOS- 
PECTRUM. 

Como el conjunto de Mandelbrot 
aparece trabajando con números 
complejos, es conveniente repasar¬ 
los un poco, para ello hemos inclui¬ 
do un apéndice al final del artículo 
con algunos de los conceptos y fór¬ 
mulas más utilizados en lo que vie¬ 
ne a continuación. 

Sea la función que toma un nú¬ 
mero complejo y nos devuelve otra 
dada por f(z)=z 2 +c donde c es una 


constante y z un número complejo. 
Si partimos inicialmente de z=0+0i 
y el resultado de la función lo volve¬ 
mos a introducir en ella, obtendre¬ 
mos una sucesión de números com¬ 
plejos dada por: 

c; c 2 +c; (C 2 +c) 2 +c;... 

Dependiendo del valor que ini¬ 
cialmente demos a la constante c, 
obtendremos una sucesión u otra. 
La pregunta del millón de créditos 
intergalácticos es: ¿Para qué valores 
de la constante c, la sucesión está 
acotada?, dicho de otra forma, se 
trata de encontrar los valores de c 
que hagan que la sucesión que ge¬ 
nera se quede siempre razonable¬ 
mente cerca del punto O+Oi. Estos 
puntos son los que van a pertenecer 
al conjunto de Mandelbrot. 

Para medir cuanto de cerca está 
un número complejo del origen, se 
toma lo que se conoce como su mó¬ 
dulo, que se corresponde con la raíz 
cuadrada de la suma del cuadrado 
de la parte real más el cuadrado de la 
parte imaginaria. 

Por unos resultados de la teoría 
de funciones complejas se demues¬ 
tra que si un elemento de la suce- 
ción tiene un módulo mayor que 2, 
entonces a la larga los módulos de 



los números de la sucesión crecerán 
de manera ilimitada, con lo que po¬ 
demos afirmar que los valores de c 
que en un elemento de la sucesión 
por ellos creados excede su módulo 
del valor 2 no pertenecen al conjun¬ 
to que estamos intentando delimi¬ 
tar. 

Sin embargo sólo hemos dicho 
que algunos valores de c no pertene¬ 
cen ai conjunto. Es difícil decir a 
priori sí un valor dado de c pertene¬ 
ce o no al conjunto que estamos 
buscando pues nada nos dice si des¬ 
pués de 500 iteraciones el módulo 
aún es menor que 2 que la iteración 
501 no se nos vaya. Por esto se suele 
dar un límite máximo de iteracio- 
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nes, pasadas las cuales sin que el 
módulo del elemento en cuestión 
sobrepase 2, declaramos «por defi¬ 
nición» que el punto representado 
por c pertenece al conjunto. 

Para hacer una representación 
del conjunto en la pantalla del QL 
será necesario efectuar una corres¬ 
pondencia de los pixels de la panta¬ 
lla con los puntos del plano comple¬ 
jo, y colorear estos pixels según un 
criterio, criterio que puede ser nece¬ 
sario modificar. 

Damos a continuación dos ver¬ 
siones del programa: una de ellas es 
para largos períodos de tiempo y la 
otra es para gente con prisas. 

En las dos versiones se nos pide 


que demos las coordenadas de la es¬ 
quina inferior izquierda de la panta¬ 
lla y la longitud y altura del rectán¬ 
gulo que va a ser la pantalla sobre el 
plano complejo. 

Las dos versiones del programa 
utilizan una única subrutina en có¬ 
digo máquina encargada de efectuar 
el grueso de los cálculos. A esta fun¬ 
ción se le pasan como parámetros 
las coordenadas del punto complejo 
c, y devuelve un número entero en¬ 
tre 1 y 1000 que representa el núme¬ 
ro de iteraciones que han sido nece¬ 
sarias para que el módulo del ele¬ 
mento en cálculo de la sucesión so¬ 
brepasase el valor de 2. Realmente, 
para evitarse una raíz cuadrada, 
compara el cuadrado del módulo 
con 4, que nos da lo mismo. 

El código de la rutina está dado 
tanto en asembler como en un pro¬ 
grama cargador en SuperBASlC para 
aquellos que no posean un asem¬ 
bler, siendo en este caso necesario 
el teclearse el programa basic po¬ 
niendo mucho cuidado, y ejecután¬ 
dolo por «RUN», lleva a cabo una 
prueba elemental del contenido de 
las líneas «DATA» y se graba el re¬ 
sultado en el fichero «HUI- 
DA_CDE», que será necesario car¬ 
gar con: 


a=RESPR(256): LB YTES 
mdvl_huida_cde,a:CALL a 

Antes de ejecutar cualquiera de 
los programas BASIC que se expli¬ 
can a continuación. El motivo de 
que la carga no vaya en los progra¬ 
mas es que no es infrecuente el estar 
dando «RUN» al programa para 
cambiar de imagen, y cogería cada 
vez memoria, por lo que es más con¬ 
veniente de esta forma y se tarda só¬ 
lo un momento. 

Esta función hace uso abundante 
del paquete de instrucciones de co¬ 
ma flotante que suministra el Su¬ 
perBASlC, intentando optimizar el 
uso del juego de instrucciones, al 
punto de hacer tan solo una llamada 
previa, y otra llamada a la rutina de 
cálculos, esta vez dentro de un bu¬ 
cle que tiene como límite el ya seña¬ 
lado de 4 ó de 1.000 iteraciones. 

Se podrá advertir un pequeño 
error, caso de que el punto pasado 
como parámetro tenga un módulo 
mayor que 2, se devuelve 1 en vez de 
cero. Sinceramente no he corregido 
este problema por no afectar en ab¬ 
soluto a los resultados, efectiva¬ 
mente las zonas del plano complejo 
que se exploran devuelven valores 
altos de la función. 


ífá 

tí 

1 líírl yl^J 


ilí 1 

112,id 


de.% 

ii 

r i i 


*¡b.l 

HB.lt 

t HlithiiHl r\ pu«tfrp it ptll 

de 6 

M 

! * > 


ID**,1 

t*4MOWOO f 7l4Í,iLtl í ppntm * 

dc.t 

|[ 

5 FM 


«av*,* 

mtn.tiifr.iLii 

4c. b 

0 

t Un 


E (f -1 

(4 

1 wptiiiat i rantir 




Uud 








iddq.1 

lL,44 

i i 11 LM& 1 il ceMidar 


IDM dt iiruhlfi 


■cwiq 

*Í P I7 

t üitpr* c+ru 


♦.—; 

— ----- C“ Ií4 h *l,ll 


tul 

Eik _l,i3 

j Inti di eiJeuIm 


* 

f 1 




i f'tlP dt Eikultr 





jlí 

f|?3 

i l-l th OtM.H.tt 


J 

i 1 


Mt.l 

4Í 



i -‘"“í-" 



bm.l 

nwno 



1 

ji r 


KI.M 

tipil 

1 rtftiyciHi pila 


i-..... 

.. 


HU 


1 tirnm Hqn* fl R-l 


í 

■i 1 


b«f i 

Un] 

l )ifr ttfiiwt 





Eip.l 

UDOC, d« 

I tiooc iLrncicfttl? 



4 » 


fríl 1 

' iidI 

\ MD ii^iir 




; 

ttvDlvitss (1 'ttiHida ? tiritbHbi 

tfp.p 


1 drtiy (di piriHtrbi’ 





u* 


I NO 1 i'Mir 

1 i Pili 




fZlT.i 

-díi*,il.11 

F puma 2 cía» til * jfll. 


tüvidi 

■O, df 


clM 

-« 116 , 11.(1 



1DVI. 1 

14,4.1 

¡ tul i*e<i ti IrIIei Minn dt ¡i pila 

rlr, 1 

-UliájL.lt 



subq 

17, ll 

| I JdSIDI 7 HlllH 

muí,' 

■l.id 



Hit. í 


i siLviids «I mhvc rilar 


i *, □ >'jí, «i. 11 i íi h j*iíii tM it ñtiíf-e it itw. 

■n-J+q dl.fd [ fl tIJ p ci «Pirre 

■ó i Ufiiñiiei 


I E*rnr J 'pIumí 


i»rr_bp 

ICnrtq.l Itrr hp, l'D 
rtiflCPú i-ti 

í ..... 

r MHUtáflñM ir Irt tilfulít 

T ..... 


l_K 


tqu 



t.- 


rqu 

-É 


]j i 


tw 

■7* 




rqu 

-Et 


s_sl 


«fp 

-71 




iqu 

’t r 


íj 


•V* 

■Je 


EllE E 

dc.fc 

l_il 


( j] 


de. b 

HA 


( it il 


dr * 

«ib 


| ll II ít 


dt h 



1 ilfil ti 


dc.b 

Ui 


i Jl Elltl El 


4c. b 

ílí 


i f] yt [lili r¡ 


dt b 

«E 


1 yllyl il-lxl ti 


le .b 



iJlTt-yUíl il 


05 



























Listado 4, Conjunto de Mandeibrot versión rápida. 
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iy - dyi f factor t 256 


760 

box 

2FÜ 

xO=XHJ* 


770 

SÉLect OH tecla 

290 

y-y i-'iy 


780 

= 192: TF i\ ) O THEN x*=x*-2 

300 

Fon j=# TO 255 STEP tactor 


790 

= 200: IF x* ♦ dxS < 512 THEN x*=x*n 

310 

y-y'i't 


aoo 

= 216!IF y* t dy* ( 256 THEN y*=y*+l 

3?Q 

X=ífl 


010 

= 208: IF y% > 0 TrfEN y*=y*-l 

330 

FOR i=0 TO 511 STEP 2ftactor 


820 

^ !93:i F it\ ) lO THEN dx*=dx*-2 

340 

z=xtdx 


530 

= 201:IF M ( 512 THEN M=M*Z 

350 

ÍIOCK 2ÍFactor,«actor, i,75í-fiCtor'j ,cnlor*(HÜID*h,y) 1 

?4C 

= 7171 IF dy* f 256 THEN dyX=dy*+l 

360 

END FOR i 


050 

= 209:IF dy* > 5 THEN dyX=dyt-l 

370 

END FOR ] 


m 

= 10:nievo!OVER O:RETurn 

IDO END DEFint rellena 


070 

= REKAIKDEP 

m 

* 


380 

ENÍ ?ELe:t 

400 

BEF i fie FuNction colnrt Id) 


m 

box 

410 

1F íT-LOOO THE* RETurn (01 


m 

END RcPeat loza 

420 

1F *1 > 300 THE* RETurr» I7J 


7!C ENE OE-ire aunenta 

430 

IF il > 100 THEN RETurn til 


920 : 


440 

!F x\ > 20 THEN RETurn (Mrt BIV 31 NOD NI 

t 2Í 

UE^ine p RI)Cedure box 

450 

RETurr til 


940 

PLQCK dxl-l J I J x* J y* J 7 

460 END OERne color* 


950 

BLOCK 2,dyit 1 x*tdxl-2 í y* í 7 

m 

1 


m 

HLOCK dx*-l J l J x* J yltdyVl J 7 

480 ÜÉFine PROCedure auienta 


970 

BLDCK 2 í dyV*Vy*i 7 

490 

il = 0 


m END DEFine box 

500 

yl - 0 


990 : 


510 

dxt = 512 


'000 BE F ine PROCedure nuevo 

520 

úyl - 256 


1010 

ddx = dxi f 512 

530 

OVER -¡ 


1020 

ddy = dyi f 256 

540 

box 


S 030 

U * XI ♦ *t i ddx 

550 

REPeit loia 


1040 

yi = yí * C256‘y*-dyiM]fddy 

560 

tecU B CGQE(INKEYf 1-111 


1050 

dxi = dxi t dx* f 512 

570 

box 


1060 

dyi = dyi f dyt t 256 

500 

SElict m tecla 


1070 END BEFiee nuevo 
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Esta función, verdadera alma de 
los programas, a pesar de estar escri¬ 
ta en assembler no es una panacea 
universal, pues efectuar mil veces el 
elevar un número complejo al cua¬ 
drado, sumarle otro, guardar el re¬ 
sultado, hallar el cuadrado del mó¬ 
dulo (más rápido que hallar el mó¬ 
dulo) y compararlo con cuatro lleva 
un tiempo aproximado de tres se¬ 
gundo y medio, valor más que res¬ 
petable si tenemos en cuenta que 
una pantalla con muchos puntos 
con valor 1.000 puede llegar a tardar 
dos dias en calcularse completa 
punto a punto, cosa que hace el pri¬ 
mer programa, pero que tendremos 
la seguridad de tener cada punto co¬ 
loreado correctamente. 

La descripción de este primer pro¬ 
grama es la siguiente, para empezar 
pide como ya habíamos dicho la po¬ 
sición del pixel situado en la esqui¬ 
na inferior izquierda de la pantalla y 
los valores del ancho y alto de la 
pantalla, esto sirve para dar un fac¬ 
tor de escala (parecido al comando 
SCALE del SuperBASIC, pero entre 
otras diferencias, introduciendo 
también el valor del ancho x. Con 
estos valores y el de la variable «fac¬ 
tor» se procede al siguiente cálculo: 
como es conveniente trabajar con la 
instrucción BLOCK y no con la 
POINT, pues la BLOCK permite di- 
reccionar pixels directamente y la 
POINT no, se calcula el número de 
bloques que va a haber por línea y 
columna, dividiendo 512 6 256 entre 
2*faclor y factor respectivamente 
(factor se aconseja que sea potencia 
de 2), cuando mayor sea factor, más 
, baja resolución obtendremos, pero 
antes terminará el dibujo. Una vez 
obtenido el tamaño del bloque 
mínimo a dibujar, es necesario cal¬ 
cular el ancho y alto de éstos, pero 
referido esta vez al plano complejo 
donde estamos trabajando, para ello 
dividiremos e! ancho y alto de la 
pantalla entre el número de bloques 
a dibujar respectivamente en hori¬ 
zontal y vertical. Trabajando ahora 
con dos bucles FOR anidados, va¬ 


mos calculando los valores de la 
función HUIDA en cada punto con¬ 
siderado (nótese que para a cada 
bloque se le da el valor de su esqui¬ 
na inferior izquierda). Una vez ob¬ 
tenido este valor sólo hay que pasar¬ 
lo por una función que nos devuelve 
un número entre 0 y 7, función a la 
que se debe la belleza de las imáge¬ 
nes que acompañan el artículo. Re- 
comandarnos para esta función que 
devuelva 0 sólo en el caso de que se 
le pase 1.000 como parámetro, de¬ 
jando a la voluntad de los lectores el 
modificarla, pues dependiendo del 
aumento con el que estemos miran¬ 
do el conjunto habrá que colorear 
de una forma y otra para obtener re¬ 
sultados más o menos interesantes, 
o para resaltar la estructura filamen¬ 
tosa del conjunto. 


Para efectuar un trabajo más rápi¬ 
do, pero a costa de algunos errores, 
está el segundo programa que traba¬ 
ja de forma recursiva. 

Por los manuales del SuperBASIC, 
sabemos que se pueden escribir pro¬ 
gramas que sean recursivos. El sig¬ 
nificado de esta palabra es bastante 
oscuro y aterrador (algo parecido al 
código máquina) y representa la po¬ 
sibilidad de resolver un problema 
teniendo en cuenta que sabemos re¬ 
solver el mismo problema pero con 
datos ligeramente más sencillos. 

El problema en nuestro caso es 
pintar una columna de pixels, para 
ello seguimos el siguiente método: 
Obtenemos por medio de HUIDA 
el valor de los pixels superior e infe¬ 
rior de la columna, si tienen el mis¬ 
mo valor, coloreamos toda la co¬ 


loo RESTORE 
110 a-RESPR (2561 
120 FOR i=0 TO 9 
130 y=0 

140 FOR j=0 TO 9 

150 READ x 

160 P0KFJI ati«0»jl2,x 

170 y=y+x 

180 END FOR j 

190 READ x 

200 IF y (> x THFN PRItlT 'Error en linea - '¡lOOOmtO 
210 END FOR i 

220 S8TTES e<lvl_lmida_cde,a,256 

1000 DATA 17402,10,13432,272,20114,20005,0,0,1,12,71328 

1010 DATA 1352,21833,17473,0,0,8764,0,60,13432,282,63196 

1020 DATA 20114,13432,276,20114,3139,2,26112,96,17078,-26372,73991 

1030 DATA 17078,-26376,17078,-26380,10313,-9732,0,12,-27652,0,-45659 

1040 DATA 18,11708,16384,0,-26622,15804,2051,-26624,17028,21060,30807 

1050 DATA 32256,18426,50,13432,296,20114,19072,26148,-11524,6,118266 

1060 DATA 19126,-26372,27654,3140,1000,28126,28672,8780,21833,11593,123552 

1070 DATA 88,15748,-26624,30723,20085,28913,20085,-6122,5646,-4586,83956 

1080 DATA 3596,-3062,-5650,3606,2810,2582, -4330,3816,5646,2786,11800 

1090 DATA 3072,0,0,0,0,0,0,0,0,0,3072 


017 



















iumna del color correspondiente, si 
no dividimos la coiumna por el cen¬ 
tro y formamos dos subcolumnas a 
las cuales damos el mismo trata¬ 
miento, y así ¿hasta cuando? Hasta 
que tengamos una columna de sólo 
dos pixels de alto, en cuyo caso colo¬ 
reamos cada pixel con su color y se¬ 
guimos a otra cosa. 

Este método tiene dos inconve¬ 
nientes, el primero es que cuando 
estamos tratando una columna en la 
que los pixels superior e inferior tie¬ 
nen valores distintos, al dividirla por 
el centro, el pixel correspondiente 
será siempre distinto de uno de los 
dos extremos, por lo que siempre se 
'fuerza una serie de subdivisiones 
hasta llegar al caso de una columna 
de dos pixels; el otro problema al 
que hacíamos referencia es que ca¬ 
da vez que subdividimos una co¬ 
lumna, es necesario recalcular los 
valores extremos de la columna ori¬ 
ginal, siendo necesario en los casos 
extremos el hacer este cálculo hasta 
8 veces (¿dónde está el ahorro?). 

La solución a estos problemas 
viene dada en el programa que pre¬ 
sentamos, el primero de ellos se so¬ 
luciona, cuando al dividir una co- 

Qíi> 


lumna en dos partes no tomamos un 
solo punto intermedio, sino que la 
subcolumna superior es la delimita¬ 
da por el pixel superior y central de 
la original, y la subcolumna inferior 
es la delimitada, no por el pixel cen¬ 
tra!, sino por el inmediato inferior y 
el inferior de la original; el segundo 
problema se soluciona pasando al 
procedimiento recursivo que calcu¬ 
la el color de cada columna, no sólo 
las posiciones de los pixels extre¬ 
mos, sino también sus valores, con 
lo que al subdividir sólo tiene que 
calcular los valores de los nuevos 
puntos y llamarse a sí mismo recur¬ 
sivamente. 

Los dos programas tiene al final 
unos procedimientos que se encar¬ 
gan, una vez terminada la pantalla, 
de permitir la ampliación de una zo¬ 
na de esta a voluntad; se consigue 
esto por medio de un rectángulo 
que aparece en la pantalla al termi¬ 
narla, este rectángulo se mueve con 
las teclas de cursor y se vería su ta¬ 
maño con la tecla ALT junto a las de 
cursor (más fácil es que probéis que 
explicarlo); una vez que tenemos la 
zona que nos interesa de la pantalla 
recuadrada, hay que dar «ENTER» 


con lo que se empezará a trazar ese 
recuadro ampliado a toda la panta¬ 
lla. 

La imagen de la portada es la re¬ 
presentación de la zona del plano 
complejo que tiene como esquinas 
inferior izquierda -0.96+0.23Í 
y—0.86-1-0.33i, por lo que habrá que 
introducir para verla x=—0.96 
y=0.23 dxO.l dy=G. I; la función co¬ 
loré necesaria para verla es la dada 
en el programa lento. 

Si queréis ver el conjunto en su 
totalidad, probar con x^2.í 
y——1.5 dx=3 dy=3, con lo que apa¬ 
recerá una vista «a pájaro» del con¬ 
junto. Es muy curioso comprobar 
que en las proximidades del conjun¬ 
to observamos con la suficiente am¬ 
pliación copias miniatura de él, co¬ 
pias que no son exactamente iguales 
al original, pues un sorprendente 
teorema nos asegura que el conjun¬ 
to es conexo, esto es que cada una 
de las reproducciones miniatura es¬ 
tá unida al conjunto principal por un 
filamento más o menos grueso. 

Otras vistas nos permiten vislum¬ 
brar espirales estilizadas filamentos 
aparentemente caóticos y electriza¬ 
dos y «ojos» que nos miran curiosos 
desde las profundidades de las ma¬ 
temáticas. 

APENDICE 

Un número complejo se define 
como suma de un número real y un 
número imaginario, los números 
imaginarios son aquellos que tienen 
como factor el número «i» o unidad 
imaginaria, este número es la raíz 
cuadrada de —1 y por lo tanto tiene 
como cuadrado —1, si intentamos 
obtener las potencias sucesivas de i, 
teniendo en cuenta que i 2 = — 1, y 
que por definición i°= 1 tendremos: 

potwicja a O a IX 2 lf Z a «X 3 tí 6 X 7 si fl ir 


Como vemos es un comporta¬ 
miento bastante curioso. 

Gerardo Izquierdo 
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LENGUA. 


El microprocesador Z-80, aquel que 
estamos aprendiendo a programar, sólo 
es capaz de ver ante él un cierto número 
de direcciones a/ de las que puede 
enviar o tomar datos, y unos cuantos 
registros propios con los que puede 
manejar y operar estos datos y 
direcciones. Aparte de las operaciones 
de entrada y salida, que fueron vistas ya 
en el capitulo 7, en condiciones 
normales las mencionadas direcciones 
sólo pueden representar una cosa: 
posiciones de memoria. Es importante, 
por tanto, que tengamos una idea clara 
de la forma en que están distribuidas 
estas posiciones en nuestro querido 

Spectrum. 


C omo ya hemos visto en 
alguna ocasión, el Z- 
80, al tener un bus de 
direcciones de 16 bits, 
es capaz de direccio- 
nar hasta 64 kilobytes 
de memoria, es decir, hasta 65536 
bytes. Esto es así en el Spectrum 
48K, que aprovecha en su totalidad 
las posibilidades del Z-80 en este 
sentido, pero en el Spectrum 16K 
sólo la mitad de esta capacidad es 
utilizada (la forma en que el Spec¬ 
trum 128K consigue sobrepasar este 
límite será tratada en otra ocasión). 

Estas 64K que puede llegar a te¬ 
ner el Spectrum se dividen en tres 
partes principales: 

16K de ROM, contenidas en un 
sólo chip, que es donde reside el sis¬ 
tema operativo, el intérprete BA¬ 
SIC, el juego de caracteres, los men¬ 
sajes de error; es decir, todo aquello 
que necesita el Spectrum para fun¬ 
cionar y que debe estar ahí desde el 
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Ilustraciones reproducidas del libro Lenguaje máquina avanzada para ZX-Specírum, de Anaya Multimedia, 


































IDIEND© 

IE MAQUINA 


momento en que se ponga en mar¬ 
cha. 

lóKde RAM dinámica, presentes 
tanto en el 16K como en el 48K, con¬ 
ten ¡das en 8 chips estándar 4116 de 
16 Kbits (¡ojo!, Kbits, no Kbytcs). 
Aquí es donde se encuentra «ma- 
peado» el contenido de la pantalla 
en ese momento, así como la mayo¬ 
ría de la información variable que 
necesita el sistema y un cierto espa¬ 
cio de memoria libre para los pro¬ 
gramas del usuario. 

Las restantes 32K de RAM diná¬ 
mica, sólo presentes en el 48K y 
contenidas en 8 chips 4532 de 
32Kbits, tienen una curiosa peculia¬ 
ridad, ya que son en realidad chips 
defectuosos de 64 Kbits. La razón de 
esto es que es muy difícil conseguir 
chips de memoria de 64 Kbits, y es 
frecuente que muchos de estos ten¬ 
gan algún defecto que los haga inú¬ 
tiles. Texas Instruments pensó en 
esto cuando diseñó sus chips de 64 


Kbits de modo que pudieran funcio¬ 
nar también como dos mitades in¬ 
dependientes de 32 Kbits; de esta 
forma cuando los defectos que ha¬ 
cen inútil un chip se limitan a una 
de estas dos partes, puede ser utili¬ 
zado como 32 Kbil por creadores 
poco esplendidos como nuestro co¬ 
nocido Sinclair. 

Como hemos visto, toda la me¬ 
moria RAM utilizada en el Spec- 
trum es dinámica; un tipo de memo¬ 
ria que, a diferencia de la estática 
que se puede mantener hasta que se 
desconecta el ordenador, necesita 
ser reescrita cada cierto (pequeño) 
intervalo de tiempo para que los da¬ 
tos se conserven. De este llamado 
«refresco» de la memoria se encar¬ 
gan, en el Spectrum, el Z-80 y la 
ULA actuando conjuntamente. A 
pesar de la aparente desventaja que 
supone esto, la memoria dinámica 
es la más utilizada en la actualidad, 
ya que pueden concentrarse más 


cantidad de bits en un solo chips a 
un precio mucho menor. 

El Fichero de presentación 
visual 

Si observamos detenidamente el 
mapa de memoria (sólo de la RAM) 
de la figura I, podemos comprobar 
que las primeras 6K, una parte im¬ 
portante sin duda, corresponden al 
Fichero de presentación visual; pe¬ 
ro, ¿qué queremos decir con eso 
de «fichero de presentación vi¬ 
sual»? 

En el Spectrum, como en muchos 
otros ordenadores, para almacenar 
en memoria loque debeapareceren 
la pantalla en cada momento se uti¬ 
liza la técnica denominada «mapea- 
do por bits». Consiste en dividir la 
pantalla en un cierto número de 
puntos (que en el Spectrum son 
256*192, es decir 49152) y asignar un 
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bit a cada uno de estos puntos; de 
esta forma cuando un determinado 
bit tiene valor 1 aparece un punto en 
la zona de la pantalla que le corres¬ 
ponde; o sea, que a cada grupo de 
ocho puntos corresponde un byte 
en memoria, que es el que indica si 
esos puntos deben aparecer o no. 

A diferencia de otros ordenado¬ 
res, el Spectrum no posee un chip 
específico de vídeo que actualice la 
pantalla en cada momento según el 
modo de presentación que se esté 
utilizando. Esta tarea la realiza la 
ULA, con un único modo de pre¬ 
sentación, leyendo cada cierto tiem¬ 
po (50 veces por segundo) el conte¬ 
nido de la memoria de pantalla, ge¬ 
nerando las tres señales básicas del 
vídeo: B-Y y R-Y con la información 
de línea y cuadro, y enviando la se¬ 
ñal correspondiente al modulador 
para que éste añada una portadora 
de muy alta frecuencia que le permi¬ 
ta entrar por la antena del televisor 
como una emisora más. 

Visto esto podemos comprender 


Toda la memoria RAM 
del Spectrum es 
dinámica y necesita ser 
refrescada cada cierto 
tiempo. 


cómo, si seguimos los algoritmos 
adecuados, podemos dibujar en la 
pantalla simplemente cargando nú¬ 
meros en posiciones de memoria 
medíante la instrucción LD (lo mis¬ 
mo puede hacerse desde el BASIC 
con POKE). De todas formas no es 
nada fácil hacerse con el dom inio de 
estas 6K, máxime si tenemos en 
cuenta la forma en que han sido dis¬ 
tribuidas. 

La forma que resultaría más có¬ 
moda a nuestras decimales mentes 
sería la de distribuir todos los bytes 
dando, de izquierda a derecha y de 
arriba a abajo, uno a cada grupo de 


ocho bits hasta term inar con la pan¬ 
talla, pero si las cosas fueran tan fá¬ 
ciles no tendría ningún mérito pro¬ 
gramar en lenguaje máquina. 

A la primera línea de 256 puntos 
le corresponden, como cabria espe¬ 
rar, los primeros 32 bytes (32*8= 
256) del «Fichero de presentación», 
sólo que los 32 bytes siguientes de 
memoria no representan a la segun¬ 
da linea en pantalla sino a la novena 
(o lo que es lo mismo, a la primera 
de la segunda línea de carácteres). 
Este extraño orden sigue hasta com¬ 
pletar el tercio superior de la panta¬ 
lla (las primeras ocho líneas de ca¬ 
rácteres), y entonces se comienza 
con el segundo tercio (como en los 
toros pero más pacíficamente). La 
forma más fácil de llegar a hacerse 
una idea del método utilizado es ex¬ 
perimentar «pokeando» desde el 
BASIC. 

El motivo principal que ha lleva¬ 
do a hacer una distribución como 
esta es que, al no llevar el Spectrum 
chip de vídeo, no se dispone de mo- 
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El Z-80, con un bus 
de direcciones de 
16 bits, puede 
direccionar un máximo 
de 64 kilobytes de 
memoria. 


do texto como en otros ordenado¬ 
res, por lo que se hacia necesario 
distribuir la pantalla de modo que se 
pudieran manejar fácilmente las po¬ 
siciones de baja resolución (corres¬ 
pondientes no a puntos sino a casi¬ 
llas de caracteres) con el sistema he- 
xadecimal que suelen utilizar los 
programadores de ensamblador. 
Así, para bajar una línea basta con 
incrementar el byte de más peso de 
la dirección, es decir, sí el primer by¬ 
te de un carácter está en la dirección 
4000H el segundo estará en la 
4100H, y el tercero en la 4200H. 

Sí pensamos en la pantalla como 
una cuadrícula de 24 por 32 caracte¬ 
res y ocho Illas por carácter pode¬ 
mos hacer la transformación de una 


coordenada cualquiera a la direc¬ 
ción equivalente en binario (o vice¬ 
versa) de forma bastante sencilla 
(verfig. 2): los bits0a4dan el núme¬ 
ro de columna entre 0y31, losbits 5, 
6, 7, 11 y 12 dan el número de línea 
en baja resolución (entre 0 y 23), y 
los bits 8 a JO dan el número de línea 
en alta resolución (entre 0 y 7), los 
tres bits más significativos son siem¬ 
pre 010. Sabiendo esto, y ayudados 
por las instrucciones lógicas, de ro¬ 
tación o de manipulación de bits, no 
es difícil hacer una subrutina que se 
ocupe de esta tarea. 

Démosle color 

Lo expuesto anteriormente sobre 
la forma en que se las arregla el 
Spectrum para almacenar la infor¬ 
mación que en cada momento hay 
en pantalla puede entenderse me¬ 
dianamente bien si partimos de la 
base de que se utilizan sólo dos co¬ 
lores, pero no concuerda con las 
polícromas pantallas que podemos 
ver en lodos los juegos comerciales. 
Sin embargo hay que resaltar que 


El Spectrum no posee 
un clip específico de 
vídeo que actualice la 
pantalla. Esta tarea la 
realiza la ULA. 


cada punto de la pantalla en el Spec¬ 
trum sólo puede contener dos colo¬ 
res; el secreto está en que podemos 
elegir qué dos colores daremos a ca¬ 
da una de las celdillas de baja reso¬ 
lución (posiciones de carácter). 

Hay una zona de memoria («Atri¬ 
butos» en el mapa de la figura 1) que 
se encarga de almacenar no sólo los 
colores que queremos dar a cada 
una de las 768 celdillas, sino tam¬ 
bién dos características más: el bri¬ 
llo y el parpadeo. A cada una de las 
posiciones le corresponde un byte, 
cuyos ocho bits tienen los cometi¬ 
dos siguientes: los tres primeros <bO 
a b2) son el valor binario que corres¬ 
ponde al color de la tinta o INK (0= 
negro, l=azul, etc.), del b3 al b5 se- 
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ñalan el color del fondo (PAPER), el 
bit 6 indica si hay brillo (BR1GHT), 
v el 7 si hay parpadeo o FLAS1! (ver 
fig. 3). 

Puede hallarse fácilmente la di¬ 
rección correspondiente a una casi¬ 
lla en el archivo de atributos usando 
la corta subrutina de la figura 4. A la 
entrada, el par HL debe tener las 
coordenadas en baja resolución; el 
registro H debe tener el número de 
línea (0-23) y L el de la columna (0- 
31). A la salida será el propio HL 
quien dé la dirección que le corres¬ 
ponda, Además de HL, sólo el acu¬ 
mulador resulta alterado. 
— 

Los 256 bytes del 
buffer de impresora 
sólo son utilizados 
cuando está conectada 
la ZX-Prínter u otra 
impresora equivalente. 


Si seguimos ascendiendo por el 
mapa de memoria nos encontramos 
con una zona denominada «Memo¬ 
ria intermedia (o Buffer) de la im¬ 
presora». Estos son 256 bytes que 
normalmente sólo son utilizados 
cuando Ja ZX-Primer está conecta¬ 
da. Allí se almacena cada línea de 
32 caracteres, no por sus códigos 
ASCII, sino como 8 grupos de 8 lineas 
cada uno. Si no tenemos la impreso¬ 
ra conectada podemos utilizar este 
espacio para nuestras rutinas de có¬ 
digo máquina o cualquier otra cosa, 
pero habremos de poner cuidado en 
no ejecutar ningún comando de la 
impresora (COPY, LLIST o 
LPRINT). 

Las variables del sistema 

Una de las zonas de memoria que 
mejor debe conocer el programador 
de lenguaje máquina es la corres¬ 
pondiente a las variables del siste¬ 
ma. En condiciones normales son 
182 bytes donde se almacenan datos 
que indican el estado del sistema 
operativo en cada momento; allí se 
«apunta», por ejemplo, la posición 
donde se encuentra el cursor o los 


colores que están siendo utilizados, 
y sus «banderas» indican si se está 
editando una línea, se ejecuta un 
INPUT, etc. 

En realidad si lo que proyectamos 
hacer es un programa en código má¬ 
quina «puro», es decir, uno en el 
que no se utilice para nada las ruti¬ 
nas de la ROM y del que no se pre¬ 
tenda regresar al BASIC, no es ne¬ 
cesario preocuparse en absoluto de 
estas variables, pero en la práctica 
sería de locos renunciar a todo un 
sistema operativo por querer apro- 
vechardd esos pocos bytes. 

Entre las variables más importan¬ 
tes se encuentran las que delimitan 
las distintas zonas de RAM, pues al 
tener muchas de estas zonas longi¬ 
tudes no fijas, van creciendo en la 
memoria «empujando» lo que ten¬ 
gan sobre sí. Así los nombres como 
CHANS, PROG, VARS, etc. que 
aparecen en el mapa de memoria in¬ 
dican que es en estas variables del 
sistema, o mejor, en las posiciones 
de memoria que les corresponden, 
donde podremos encontrar las di¬ 
recciones que marcan el límite en¬ 
tre cada zona. Por ejemplo, si quere¬ 
mos saber la dirección de comienzo 
del programa BASIC, deberemos 

--- 

Las variables del 
sistema son 182 bytes 
que contienen 
información sobre el 
estado del sistema 
operativo en cada 
momento. 


buscarlo en PROG, que, si busca¬ 
mos en el manual, veremos que 
ocupa las posiciones 23635-6. Al ser 
un número de 16 bits es almacenado 
en la forma clásica, es decir, con el 
octeto menos significativo en pri¬ 
mer lugar, por lo que si queremos 
imprimirlo en pantalla desde el BA¬ 
SIC deberemos hacer: 

PRINT PEER 23635+256+PEEK 
23636 

Las variables del sistema pueden 
ser utilizadas desde el código má¬ 
quina de múltiples formas, al menos 
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una para cada variable. Aunque es 
necesario conocer mínimamente el 
sistema operativo para poder utili¬ 
zarlas correctamente (lo mejor es 
«empollarse» un poco el desensam¬ 
blado de algunas zonas de la ROM), 
en el capítulo 25 del manual puede 
encontrarse una lista de todas ellas 
en laque se explica someramente su 
cometido y se da su dirección en de¬ 
cimal. Algunas de ellas pueden ser 
modificadas desde el BASIC para 
conseguir ciertos efectos, por ejem¬ 
plo, CHARS, en la dirección 23606- 
7 marca el comienzo (menos 256) 
de! juego de caracteres estándar; po¬ 
demos modificar esta variable para 
hacerla apuntar a nuestro propio 
juego de carácteres y volver al ante¬ 
rior cuando queramos. P1P, en la di¬ 
rección 23609, señala la longitud del 
chasquido que suena cada vez que 
pulsamos una tecla; podemos modi¬ 
ficarlo para hacer que suene un piti¬ 
do más audible, útil para controlar si 
ha aceptado una tecla o no. 

En todo caso, y como ya se ha 
mencionado, lo importante es cono¬ 
cer bien cómo funciona cada cosa 
cuando el operativo está en marcha. 
Para ello la experimentación puede 
ser un buen arma cuando lo demás 
ha fallado. En el siguiente capítulo 
continuaremos con esta panorámi¬ 
ca sobre el mapa de memoria del 
Spectrum para conseguir tener bien 
claro dónde pisamos en cada mo¬ 
mento. Luis Gata 













PROGRAMAS 

CONICAS 



Todos los elementos básicos de las 
curvas cónicas son tratados a 
fondo en los 22 Kbytes de memoria 
que ocupa este programa. 

Las curvas se pueden definir por 
fórmula o por condiciones, 
introduciendo cinco puntos o cuatro 
puntos y una tangente. Las 
instrucciones son completísimas y 
facilitan toda la información 
necesaria en cada fase del 
programa. 

Definida la cónica, la pantalla 
mostrará su fórmula y el tipo de 
curva de que se trata (elipse, 
hipérbole, hipérbole equilátera o 
parábola). Pulsando una tecla 
aparece un extenso menú que 
cubre todas las posibilidades 
imaginables, desde polo de una 
recta a ecuación reducida de la 
cónica pasando por tangentes, 
asíntotas, vértices, representación 
gráfica e intersección recta - 
cónica. 


^ 4U PÜKE 23609.150: PAPER 1¡ IN 
K 7: BORDtR 1: CLS : GO TQ 700 
,50 CLEAR : REBTORE s LET wv=0: 
LET ww=0: GQ TO 1000 

70 CLS i GG TO 210 

101 LET wv=0; LET ww=0s BRIGHT 
0: PAPER 1: INK 7: BEEP .5,20: P 
RINT ftT 18,8: FLASH 1:"PULSA UNA 
TECLA": PAUSE 30: PAUSE 0 
200 REM MENU 

210 CLS s PRINT "S 1- 

e una recta . E 

L 2- 

de un punto.Valor E 


comea 
de la 


220 PRINT 
recta- 

oní ca. 

iperbola 

un punto. 
225 PRINT 
la cónica. 

on gra-fica. 

230 PRINT 
ucida de la 


para este, 
cónica 


I 

0 

N 

A 

U 

N 

A' 

Él 

0 

p 

c 

"I 

ü 

N 


Polo d 

Pol ar 
de la 

C 3- Centro 
C" 

4- Intersección 
conica. 

5- Ejes de la c 

6- Asíntotas <h 
únicamente), 

7- Tangentes de 

8- Vértices de 

9- Representad 

R— Ecuación red 
cónica.FOCOS 
E~ De-finir otra 


IF jí=. THE 


cónica.’ 

400 LET 
N BG TO 
410 LET 

S® "2" ) +2501# < j ( i 

")+3501# <iS="5")+4001#(ií-“6 M )+4 
1 )+5001#(j*= M 8">+5501# 
- * — V’)+10#(j$=’’e 


501* ( 

■U 


.* (j 

¡í="7 


.*tjí . . _ 

(j$= ,, 9")+220l*Cjí 


j $=INKEYÍ; 

400 

0=2001* ( i$.= " i >■) +15Q1* ( j 
í="3")+3001*(j$="4 






420 SO TO o+400*(o=0> 

700 REM PRESENTACION 
705 PRINT AT 15,0:" GUILLERM 
O CANDELA 1984 fl : PRINT : PRINT 
R PRINT " PULSA UNA TECL 

710 FOR n=0 TO 31s PRINT AT 7,3 
1-n; INK n/7+2;" ’ 


720 IF XNKEYtO"" THEN GO TO 5 

0 

? 730 BEEP .008,n: NEXT n: GQ TO 

1000 REM INTRODUCCION CONICA 

1002 PRINT " Puedes definir un 

a cónica porsu -formula o por con 
¡3£9i!\9 nes ¿.. El 1 una opcion": 
PRINT i PRINT " 1- POR SU FORM 

ULA- 11 : PRINT : PRINT " 2- POR 

CONDICIONES." 

1003 IF fNKEY*-"l" THEN CLS : G 
0 TO 1007 

1004 IF INKEY$»"2" THEN GO TO 6 
000 

1005 GO TO 1003 

1007 PRINT 11 La representa 

cion generalde una cónica viene 
dada por la siguiente expresión: 

_ Ax^2 + By'"2 + Cxy + 

D>í + Ey + F 

Nec esi tamos s 
aber los valores de A,B,C,D,E 
,F. Laso de ser nulos,pon el val 
or 0. " 

1010 INPUT "Introduce los valore 


b¡ 

. u 


C= 1 


D=" 


s: A=" sk:* 1 B=*'i 

Iqfo REStüftE 109Ó: READ aa.ab.ac 
,dis: DATA <k*b~<c*c>/4)(d/2) 
*b-(c*e)/4> , <(d*c)/4-<k*e)/2),(a 
a*f +(a.b*d >/2+(ac*e)/2) 

1095 DEF FN c(x,y)—k*x*x+b*y*y+c 
*y*x+d*:<+e*y+f 

1100 REM CLASIFICACION CONICA 
1110 IF dis=0 THEN GQ TO 1300 
1120 IF aa>0 THEN LET aí="ELIPS 

1125 IF aa>0 AND k=b AND (c/2)=0 
THEN LET aí="CIRCUNFERENCIA" 
1127 IF aa>0 AND k#dis>0 THEN L 
ET aí=a$+" IMAGINARIA" 

1130 IF aa<0 THEN LET aí«’'HIPER 
BOLA" 

1135 IF aa<0 AND k+b=0 THEN LET 
ai=aí+" EQUILATERA" 

1140 IF aa=0 THEN LET aí="PARAB 
OLA" 


1200 


im 

mc; 


CLS í PRINT 
PRINT k;"x 
xy +", ,d;"x 

í210 PRINT 
1250 GO TO 
1300 CLS 


■2 

+ 


La cónica: 1 
+",,b;"y A 2 +’ 
i ? e * Y T 




j , es una" ,,,,a$ 

l¿OU LUb : PRINT , ESTA CONI 

CA ES DEGENERADA" ” "ES,PUES,UNA 
0 DOS RECTAS REAllÉá ’ ' 0 

IMAGINARIAS" 

1350 GO TO 101 
1500 REM Polar 

1510 CLS : INPUT "Introduce un p 
unto definido por coordenadas ho 


mogeneas P(c,x.y) 
c) es coordenada 


sabiendo que 
del punto del 


PROTEJA SU SPECTRUM PLUS CON ESTA 
PRACTICA FUNDA 



A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 
con esta funda, y beneficíese 
de un 30% de descuento 
sobre su precio normal. 



















Hay dos c on i cas con esta 
condiciones: iaa«i^¿EI 
Estas condiciones definen t a 
c o n i c a : 
i xts + 

336.18988 y+9 + 

-414 . 3781S xy + 

2036 o 3907 X + 

—22289.174 y + 

103177il2 = 0 


ondiciones definen La 


04 . 65561 , 0.3965 


EGENERADA YNG BE PUEDE EXPRESAR 
EN FORMA REDUCIDA": GÜ TO 101 
2210 IF aa=0 THEN GO TO 2300 
2213 IF aa>0 THEN LET aí* M ELIFS 

2216 IF aa<O THEN LET a$="HIPER 
BOLA" 

2220 RESTQRE 2220: READ a.g.h-i, 
h,t,h: DfiTfi dis/aa.(k+b),SBR (g* 
g~aá*4) , <g-h) /2, <g4-h> /2, ¿ a/i ,-a/ 
h 

2230 PRINT 11 La expresión re 

d lic ida de esta ";aí: 1 es la si 
guiante:PRIN1 s PRINT >:'•2/( 
": t i " ) + y■--2/( " ; h; " ) = 1": LET w 
~&Q.k (ABS <t-h>) ‘ 

2235 PRINT : PRINT : PRINT " PU 
LSA UNA TECLA PARA VER LDS „ FO 
COB": BEEP .4,15: PAUSE O: GD TO 

5Q0O 

2240 LET X-(SX-SZ>: LET y=(sy-sw 
): LET 2 =<x*x+y*y)/4: IF aa>0 AN 
D z< ABS <t>*0.9991 THEN GO TG 5 
240 

2250 RESTORE 2250: READ a.y.^h, 
x: DATA (ATN (1))*(m<>0> + f m=0)*P 
1/2,w*SIN (a)+ac/aa,-w*SIN <a>+a 
c/aa,w*COS (a)+ab/aá,-w*COS (a)+ 
ab/aa: PRINT : PRINT " LOS h 

OCDS SON LOS PUNTOS:": PRINT : P 
RINT "F1 (";h:"." ; y: " > " : PRINT "I- 
'MGO TO 101 

2260 RESTORE 2260: READ a.g.h , 
y,a,g,h,i,u,v: DÁÍ A (”k+e+b*(e—a 
) /2lc$- (.(i+e) 74) , ( (d* <d--e) -e*e) /4+ 
f*(b-k+c/2)),(c*c/4-b*k) 

2265 DATA <-a+SQR (a*a--4*g*h ) ) / ( 
2*h>,í-a-SQR <a*a-4*g*h>) 7 (2*h), 
Ce*c74-d*b/2) , (f*c/2-d*e/4) ,k*b- 
c*c 74,k*e/2-c*d/4 

2270 DATA <a*x+g>/<h*x+i),(a*y+g 
)/(h*v+i) 

2280 PRINT x;" , ":u: PRINT y;".": 
v* STOP 

2300 LET a=ík+b>: LET h=SOR (-di 
s/a): LET s=h/(2*a>: PRINT " 

La expresión reducida de esta 
PARABOLA es la siguiente:": PRI 
NT : PRINT " y A 2 4 <":2*h/a;”>x 
= O": PRINT : PRINT "siendo el 
paramet.ro=" ; s* 

PP T M 


infinito, y que toma el val or 
*1' si el punto esreal o el 'O 
si es del i nf i n i toi ndependi. entem 
ente de X e Y, lastipicas coorde 
nadas en el plano: 


152& RÉ&TORE 1520: READ l.m.n.va 
1: DATA u*d/2+k*x+(c/2)*y,u*e/2+ 
(c/2)*x+b*y,u*f+ <d/2)*:: + (e/2)*v, 
k*x *x+b*y*y+c*y*x+d*x*u+e*u*y+f* 
u*u 

1525 IF ww=l THEN GO TO 30,13 m 
1528 PRINT " EL VALOR DE LA 00 
NICA EN ESTE PUNTO ES: 

F(x)®";val: PRINT 
1530 IF m<>0 THEN LET l=-l/fn¡ L 
ET n=-n/m: LET m=-l 
1535 PRINT " LA POLAR DE F(";u: 
" . ":x: " , " :y: ") ES:": PRINT " " , , rl 
( ?1 : 1;)x +( ?1 ;m;")y +(":n;") M 
1560'GO TO 101' 

2000 REM POLO DE UNA RECTA 
2010 CLS : IF dis=0 THEN PRINT 
" ESTA CONICA ES DEGENERADA: 

PARA CADA RECTA HAY INFINITOS 
POLOS.": GO TO 101 
2020 INPUT " Introduce la re 

cta de la cual quieres saber e 

1 polo de la siguiente forma: 

Ax + By + C 


2030 LET u= (n*k*b+l*c*e/4+m*d#e/ 
4)-<e*k*m/2+c*c*n/4+b*d*l/2) 

2035 LET x“ (l*f *b+m*ci*e/4+n*e*c/ 
4) — (e*e*l / 4+c-*f *m/2+b*d*n / 2) 

2040 LET y=(m*f*k+ n *d*c/4+l*e*d/ 
4)-<k*e*n/2+c*f*1/2+m*d*d/4> 

2045 IF u=0 THEN PRINT " El 

polo de esta recta es unpunto d 
el infinito: pero puede darse e 
n coordenadas homogéneas: 

POLQ“ 

GO TO 101 
EL POLO DE LA R 
"i PRINT "("ils">x 
(":n¡")=0": PRINT : 
PRINT'" ÉS EL PUNTO :": PRINT : 
PRINT " P(" ;x/u;",";y/u;")": GO 

2200 REM FORMA REDUCIDA. FOCOS 
2205 LET ww=3: CLS : IF dis=0 TH 
EN PRINT " ESTA CDNICA ES D 


áSteo’pftiftT 

ECTA 


ZCv05 PRINT AT 16,7: "PULSA UNA TE 
OLA": BEEP .4,17: PAUSE O 
2310 CLS : GO TO 5400 
2320 IF 1-0 THEN LET g-sx+s: LE 
T i=sy: IF FN c(g,i)<0 THEN GO 







TODO GRATIS 


TD 2400 
2325 IF 1 
TO 2400 

2330 IF m«0 THEN 
i= S y+ s: if FN c(q 
TO 2400 

2335 IF m™0 THEN 
TO 2400 

2340 LET a=ATN LET q=sx + 

s*CCS (a): LET i=sy+s*SIN (a): I 
' r gü TÜ 2400 

(a>: LET i=s 


=0 THEN LET g=s;:-s: GO 

LET q=sx: LET 
,i)<0 THEN GD 

LET i=sy-s: GD 


V”S*SIN (a) 
2400 PRINT " 
PARABOLA esi 


F FN cíg.iXO THEN 
2350 LET ; g =s> { ~s*COS 

El FOCO de esta 
el punta; 

FT" ; g; " , " ; i ; " ) G 

O TO 101 

2500 REM CENTRO 

2510 CLS : IF aa=0 THEN PRINT " 
El CENÍRO de esta parabola 
es un punto del in-finito. Sin 
embarga lo podemos expresar en 
COORDENADAS HOMOGENEAS: 

IF abOO THEN PRINT " C=(0 

1 ,";ac/ab;")"s GO TO 2550 

. . _ C=(0 


A 


a!.5 IF aa=0 THEN PRINT 
,0,”¡ac;")": GO TO 101 
2520'PRINT " EL CENTRO DE ES 

TA CONICA ES",,: PRINT " C=("¡¡a 
b/aa: " ,":ac/aa;")" 

2550-60 TO 101' 

3000 REM INTERSECCION RECTA-CONI 

CA 

3010 CLS : INF'UT " Introduce 

la RECTA de la siguiente mane 
ra: 


+c=Q 


b = ";m:" c=":n 

3013 IF 1=0 THEN GO TD 3200 
3016 IF m=0 THEN GO TO 3250 
3020 RESTORE 3020: READ K ( y.i,a; 
DATA ((k*m*m)/(1*1)-(c*m) /1+é ), 

( (2*k*n*m>/(1*1)-(c*n+d*m )/l +e) , 
( <k*n*n)/(1*1)-<d*n) /1+i) ,y*y-4¿ 

3025 IF a< =0 THEN GO TO 3100 
3028 IF >;<10"'"”7 THEN LET sy=-z / 
y: LET sü ==-(n + m*sy) /1: 60 TO 316 
O 

3030 RESTORE 3030: READ g,h,sx,s 
y,sz,sw: DATA <-y+SQR <an/C2*x) 

, í-y-SQR (a) ) / (2-iO: ) (n+m*g) /I ,g 

™(n+m*h)/1 h 

3035 IF wv=l OR wv=2 THEN GÜ TO 

5200 

>036 IF ww=l THEN GG TO 4600 


si enda 


ax+tiy 

: " . 1 .l> 

* * 


3038 

□RTE 

SON: 


PRINT 

DE LA 


L.OS PUNTOS DE C 
RECTA CON LA CONICA 


3040 
isw: ' 

u 100 


Ó. ( 


) 


P (":s:< 

PRINT " 

TO 101 . 

THEN LET sx=-(n+m*( 
LET sy= í--y> / (2*x 


* * 

PRI NT ■ c,c ‘ T M " 1 " " ’ 

) " : Gü* 

IF a=0 

(~v)/(2*x)>)/I 
):'GO TO 3160 
3150 IF ww=l THEN GO TO 4650 
3152 IF wv-1 THEN GO TO 5300 
3155 PRINT " LOS CORTES DE E 

STA RECTA CON LA CONICA SON IM 
AGINAR IOS": GÜ TO 101 


VENTAMATIC te ofrece un com¬ 
pleto catálogo de informática; cien¬ 
tos de productos, las últimas nove¬ 
dades, todos ¡os precios, muchas 
ofertas, facilidades de pago, increí¬ 
bles condiciones... Todo a tu dis¬ 
posición, GRATIS y sin ningún 
compromiso, enviando este cupón. 


BOLETIN DE PEDIDO (Rellenar con letras 

mayúsculas) Fecha;.. . . 

Nombre y apellidos: . . . 

Dirección:. 

Población... 

Provincia:. Código Postal , . 

Deseo recibir GRATIS el CATALOGO 
GENERAL de VENTAMATIC. 

Deseo recibir los programas que señaló 
a continuación: 

* Programas útiles para Spectrum (Ins¬ 
trucciones en castellano^ IVA incluido)*. 

BETABASIC 1.8 (OFERTA): 1.500,- 
HISOFT DEVPAC 
(GENS-MONS): 3 . 500 .- 
HISOFT PASCAL: 6.000, 

LOGO CASTELLANO: 4 000,- 
MICRODRIVE RANDOM 
SYSTEM: 3.000,- 

D CONTEXT PLUS (Procesador de 
textos): 4.000,- 

□ S I .T I. (Base de datos con 
Cálculos): 4.000.- 

□ ADAPTADOR S.I.T.I. / 

CONTEXT: 2 500,- 

□ S I.T I. CALO (Hoja de cálculo): 4 000.- 
LT CONTABILIDAD P.Y.M.E.: 4.000,- 

La forma de pago será la que señalo con 
una cruz: 

□ Cheque adj unto (sin gastos de envío), 

□ Giro Postal Número.. . (sin 

gastos de envío). 

□ Contra-Reembolso (+ 300,- Ptas por 
gastos de envío). 

.□ Tarjeta de Crédito . . , Número: . . . 

Caduca:. Firma:. 

( + 300 t - Ptas por gastos de envío). 


Enviar a: VENTAMATIC 

Córcega, 89, entlo. 
08029 Barcelona 
Tels. (93) 230 97 90 
230 98 05 























3160 IF ww=l THEN GD TD 4700 

3163 IF ww=3 THEN GO TG 2320 

3165 IF wv~l THEN Gü Tü 5480 

3168 IF wv=4 THEN GD TÜ 5850 

3170 PRINT " EL UNICO PUNID 


DE CORTE ES: 

GG TO 101 
3200 LET i 


P ( " ; s; " , 11 ; sy; 11 > “: 



_ -Cn/m): LET y^c-fri+d: 

LET 2 =-f +b*i*i +e*i : LET a=y*y— 4*2 
*k: IF a<O THEN GO TO 3150 
3210 IF a®O THEN LET sx®-<y/(2* 
k> >■ LET sy=i: BO TO 3160 
3220 LET sx=(~y+SQR a)/(2*k): LE 
T sy»i: LET sw=i: LET sz=(-y-SQR 
a)/<2*k)s GO TO 3035 
3250 LET i~—(n/l): LET y=c*i+e: 
LET 2®f+ k*i *i +d*i : L.ET a~y*y—4*z 
*b: IF a<0 THEN GQ TO 3150 
3260 IF a~0 THEN LET sy®~(y/<2* 
b)): LET sx®i: GO TÜ 3160 
3270 LET sy=<-y+SQR a)/(2*b): LE 
T sx=i: LET sz = i : LET sw=(-y-SQR 
a)/<2*b): GO TO 3035 
3500 REM EJES DE LA CONICA 
3510 CLS s IF aa=0 THEN GO TO 3 
700 

3515 IF c=0 AND bOk THEN PRINT 
" LOS EJES DE ESTA CONICA SON: 

PRINT PRINT ">: = "jab/aa¡ " y 
=":ac/aa : GO TO 101 ' 

3516 IF c=0 THEN PRINT " Es 

ta cónica es una CIRCUN 

í-ERENCIA; por ello todo par de 

diámetros perpendicula- -res e 

ntre si se pueden tomar como e 

jes.": GO TO 101 

3520 RESTORE 3520: READ g.x.y.z, 
ex,ey,dx,dy: DATA (k-b),g*g+c*c, 
(-g+SQR x)/c,(-g-SDR :<)/c,y,ac/a 
a-(ab*y>/aa, 2 .ac/aa-(ab*z >/aa 
3530 IF wv®l tHEN GO TO 5045 
3535 IF wv=3 THEN GO TO 5540 


3550 CLS : PRINT " LOS EJES 

DE ESTA CONICA SONLAS DOS SIGUIE 
NTES RECTAS: 

+ (" :ey; " ) "s PRINT ^RIÍ^IT 5 " 7"^ 
dx :")>!” y + <"¡dysGO TO 101 
37Ó0 CLS : IF c=0 AND k-0 THEN 
PRINT " EL EJE ES LA RECTA: 

y= M ;(—e)/(2*b): GO TO 10 

3710 IF c=G AND b=0 THEN PRINT 
" EL. EJE ES LA RECTA: 

:t = ": C—d > / (2*k ) : GO TO 101 
3720 PRINT " EL EJE ES LA RE 

CTA: PRINT "(":k+b;") 

x +<c/2+(2*b*b)/c:")y +í";d/2+ 
e*b /c ; " ) fl : Gü TO 101 
4000 REM ASINTOTAS HIPERBOLA 

: IF aa>=0 ÜR dis=0 THE 
" ESTA CONICA TIENE 

ASINTOTAS IMAGINARIAS 
101 

a=c*c-4*k*b: IF b<>0 TH 

LET 


4010 CLS 
N PRINT 
LAS 

"! GO TO 
4020 LET 
EN LET y~(-c+SQR a>/<2*b) 
z as í-c-SQR a) / <2*b) : PRINT 
LAS ASINTOTAS DE ESTA 
BOLA SON LAS RECTAS: 


HIPER 


C 




v +(":a 
PRINT 


RiftT'^PRÍSt^^KnTS^T* 

c/aa-z*ab/aa: 11 ) " : PRINT : 
s PRINT " QUE FORMAN UN ANGULO 
DE ,.,ABS (ATN y-ATN z)*(lBO/P 
I i" ’GRADOS": GG r□ 101 
4100 IF.kOO THEN LET y® (-c+SQR 
LET z={-c-SQR a)/(2*k 
LAS ASINTOTAS DE 
HIPERBOLA SON LAS RECT 


a)/<2*k) 
): PRI MI- 
ESTA 
AS: 


a-ab/aa: 1 > 

" - -7 » ’M w 4* { 


Íi>ít"í y pRI < Nt aE x y -T 


F‘R 

:ac*z/aa 


RINT : PRINt : PRINT 


■ab/aa; ” ) 
ÓUE 


P 
FGR 

















MAN UN ANGULO DE ",,.ABS (ATM y- 
ATN z) * (1BO/PI ) ! " ÉtaS 1 ': GO T 
O 101 

4200 PRINT " LAB ASINTOTAS D 

E ESTA HIPERBOLA SON LAS RE 

OTAS: 

x = "; ab/aa, "y^" ; ac: / 

aai GO TQ 101 

4500 REM TANGENTES DE UN PUNTO 
4510 CLS : INPUT " INTRODUCE 

EL PUNTO: P(x.y) 

" , y= M ; 

Í51S IF FN c < x , y)=0 THEN GO TO 
4 700 

4520 LET s=x: LET t=y: LET u=ls 
LET ww=l: GO TO 1520 
4600 CLS : PRINT " LAS TANGE 

NTES SON s": PRINT : PRINT 
4610 PRINT " (";<sy-t)/Í sk-s) 5 “) 

x - y + (";t-<(sy—t)/(sx-s))*s;" 

> M ¡ PRINT ! PRINT "PUNTO DE TANG 
ENCIA: PRINT " 

P < " 5 sx;",";sy;")": PRINT : PRINT 

4630 PRINT " < " ; <s w-t>/(»z~s);") 

x “ y + ( 11 51-í (sw-tí / (sz“s) ) " 

)": PRINT s PRINT "PUNTO DE TANG 
ENCIA: ": PRINT " 

PC":sz:",";sw¡")": GO TO 101 
4650 F'rí.IÑI 11 Desde este punt 

g NO se pueden trazar TANGEN 

TEb A LA CONICA (punto interi 
□rGO TO 101 
4700 PRINT " Este punto perten 
ece a la cónica: solo tiene u 
na tangente:: su POLAR::": LET ww=0 
: GO TO 1520 
5000 REM VERTICES 
5005 LET wv*la IF 
TO 5400 

5010 CLS : IF c=0 AND bOk 
GO TO 5050 
5020 IF c==0 THEN 
a cónica es una 
FERENCIA: por ello, no 
vértices": Gü TO lol 
5040 GC TD 3520 
5045 LET 1=ex: LET m=-l: 
y: GQ TQ 3013 
5050 LET n=-ab/aa: LET rrr 
1=1: GO TO 3013 
5200 IF aa>0 THEN LET aS* 

E": GO TO 5220 
5210 LET a$="HIPERBOLA" 

5220 IF wv=2 THEN GO TO 5260 
5225 IF wv< >2 AND ww=>3 THEN GO 
TO ^40 

5230>RINT " LOS VERTICES DE 
ESTA SÜNs": PRINT 


aa=0 THEN GO 

THEN 

PRINT " Est 
CIRCUN 
t i ene 

LET n=e 
=0: LET 
"ELIF’5 



: PRINT 
INT "V2= 
5240 IF 
TO 5300 
5250 


" V1 as < " 5 sx ; " , 

( " ; sz : " " ■ sw: 11 ) 

aa>0 THEN' LET 


hfY,' 


PR 


wv=2: GO 


5260 


sy: 
) r ': 


GO TO 2240 
" V3= ( 

=(":sz: 


sx : 


60 TO 101 
IF ww=3 THEN 
PRINT : PRINT 
) " : PRINT "V4 
GO TQ 101 • - 

5300 IF c=0 THEN LET n=™ac/aa: 
LET 1=0: LET m = l: GO TÜ 3013 
5305 LET l==dx: LE.T m=—i: LET n=d 
y: GG TÜ 3013 

5400 IF c=0 AND b=0 THEN LET sx 
= <-d)/(2*k) : LET sy=í- íd*d/ (4*k) 
)+-n/(--e): LET 1 = 1: LET m=0: LET 
n=-sx: GO TO 5480 
5405 IF c=0 AND k=0 THEN LET sy 
=(™e) /(2*b): LET sx= í-< e*e/<4-*b) 
) +-f ) / (-d ) : LET 1=0: LET m=l: LET 
n=“sy: 60 TÜ 5430 
5410 LET I = (k+b >: LET m=<c/2+2*b 
*b/c); LET n=(d/2+e*b/c): GO TO 
3013 

5480 IF wv=4 THEN Gü TD 5850 
5482 IF ww=3 THEN GO TÜ 2320 
5485 CLS : PRINT " EL VERTICE 
DE ESTA PARABOLA ES EL. 

PRINT s PRINT "V=("¡sx: 

)": GO TO 101 

5500 REM REPRESENTACION 

5501 CLS : PRINT " 

s i nstrucci oríes antes 

r: cuando pulses una tecla 
mpezara a dibujar la canica 


PUNTO: 


GRAFICA 
Lee esta 
de seguí, 
se e 
c pn 




































e un p uri t. o . Ua Lo 
o nic a para e ste 
de La cónica 


escala automatica,resolucion 3 y 
sin relleno. Pulsa 'P' si q 

uires que deje de dibujar, o ble 
n esperar hasta el final, te apar¬ 
ecerá abajo 'Pulsatecla'y las te 
das de opcianes:": PRINT : PRIN 
m- Lambío de escala,resoluci 
on .PRINT " M- Vuelta al MENU 
principal. ": PRINT " C- Cop 

xa de la pantalla en la i mp 

resora S- Gra 

ba la pantalla en cinta": PRINT 
: PRINT " PULSA UNA TECLA 

": PAUSE 0 

5502 INK O: PAPER 5: BRIGHT 1: C 
LS : LET pT= IF dis=0 AND aa 

<>O c THEN LET r = l: LET o=2; GQ T 

3503 IF dls~0 THEN PRINT "CONIC 
A DEGENERADA:I o 2 rectas paral 
el as": Gü TU 101 

5504 IF aa—0 THEN LET a=k+b: LE 
T h=SQR <-dis/a): LET r-íINT (40 
0O*a/h>>/100: LET o=2: GG TO 550 


d x * (h-127) + dy > == (i +87) THEM P LOT 
(i-B7-.dy> /dx-h+127,0: DRAW 175/ 
d r " 1 1 ^ 

55Su IF -i<=87/r AND -~i>=-87/r T 
H EN , P L. □ T 0 , S 7 - i *r : DRAW IM K 2; 


THEN 


5560 ' PL.0T 0.0: PLOT 0,175: PRI NT 
AT 0,1: (h- 1 27/r);","■ (87/r+i): 
PRINT AT 21,1s(h-12 //r <-B7 
/r+i) 

5565 IF b-0 THEN GQ TQ 5700 
5570 FOR x-h-127/r TO h+128/r ST 
EP a/r 

5575 IF INKEYÍ—"p" THEN BEEP .3 
,13: GG TO 5620 

558ü LE I z~ (e+c:*x) * ( e+c * x) -4*b*( 
f +d*x+k*x*x ) : IF z <0 THEN NEXT 
>,* * fin Tfl c ¡A''?l'l 

5590 LET g=?< <-<e+c*x>+SQR z)/(2 
*b) )-i 5 *r+87: IF g>=0 AND g<>175 
THEN PLOT < (x-hT*r+127) ,g 
5600 LET y= ( ( (- (e+c*x) -SQR c) / (2 
*b))~i)*r+87; IF p$="s" THEN GQ 
SÍJB sa4 ,:; ¡ 

5605 IF y>=0 AND y<=175 THEN PL 
QT <(x~hí*r+127),y 
5610 NEXT x 

5620 PRINT 41;" Pulsa tecla: M 
C A S": BEEP .5,20 
5623 LET jT=INKEYT: IF j$="" THE 
N Gü Tü 5623 

5625 IF THEN GO TO 101 

5628 IF THEN CÜPY : GG T 

Q 101 

5630 IF j*="a" THEN BEEP .3,10: 

PAUSE 15: GO TO 5510 
5635 IF j*= M s" THEN INPUT "Nomb 
re? (10 letras) " ; rrí: SAVE níSCRE 
ENT 

5640 GO TO 5623 

5645 LET s=-(r*SQR z)/b: IF g>17 
5 AND y<0 THEN F’LüT <(X“h)*r+12 
7),0: DRAW OVER 1¡0,175: RETURN 


5505 RESTORE 5502: READ a,q,h.i, 
t,r,o: DAFA dis/aa,<k+h), SQR £q* 
g-aa*4> 3 (g--h) /2.SQR ABS t-a/i ) , ( 
INT (63007t)>/100.3 

5506 BEEP .3.15: PRINT AT 1,0;"E 
SL-"jr: PRINT AT 2,0: PAPER 4¿"R 
ES"; PAPER 5 3 " = ";o: feo TO 551 fe*( 
aa\ ,Q) +5800* (aa=o) 

5510 INPUT "Introduce la ESCALA=- 
";r: INPUT "Introduce la RESOLUG 
I0N=";o: INPUT "Quieres RELLENO 
? (p/n)":¡p$: BEEP .3,15: BRIGHT 
1: PAPER 5s INK 0: CLS s PRINT A 
T 1,0; "ESC-";r s PRINT AT 2,0: PA 
PER'4; "RES";' PAPER 5 3 " = ":O i 1F a 
a*0 .THEN GO TO 5800 
55 i 5 LE-T h-ab/aa: LÉ'T 1 =ac / a a 
5520 II- c-0 AND bOk THEN PLOT 
127.0: DRAW 0,175: PLOT 0,87: DR 
AW 255.0: GQ TO 5550 
5525 IF c-0 THEN GQ TQ 5550 
5530 LET wv-3: GO TÜ 3520 
5540 IF ex* íh-127)+ey>=£ i -87) AN 
D ex*(h-127)+ey<£ i+87) THEN PLO 
1 0,ex*(h-127)+ey—i+87: DRAW 255 


5646 IF y>175 AND g<0 THEN PLOT 
((x~h)*r+127),0: DRAW OVER 1;0 

,175: RETURN 

5647 IF g>175 THEN PLOT í(x-h)* 
r+127),175: DRAW OVER 1;0,-(175 
-g-s); RETURN 

564£3 IF y>175 THEN PLOT (íx-h)* 
r + 127) .175: DRAW OVER 1 3 0, (y-s- 
175): RETURN 

5649 IF g<0 THEN PLOT ((x-h)*r+ 
127),0: DRAW DVER 1:0,-(-s-g>: 
RETURN 

5650 IF g<=l75 AND y>=0 THEN DR 


127)+ey<(i-87> OR 
“(i+87) THEN PLOT 
h+127,0: DRAW 175/ 


5545 IF dx *(h-127)+ d y 
D dx*(h-127)+dy<(i+87 
T O, d x*(h- 1 27)+dy—i+8 
. dx*255 

5548 IF dx*(h—127)+dy 


>=£1-87) AM 
) THEN PLO 
7: DRAW 255 


52 





AW OVER 1sO.s: RETURN 

5655 IF y<O THEN PLOT <íx-h) *r + 

127^0 i DRAW ÜVER 1; O, - <s-y) : R 

5660 RETURN 

5700 IF k=0 THEN GO TO 5900 
5705 FOR y==i-S7/r TO i+88/r STEP 
o/r 

5710 IF INKEY$ : =“p" THEN GO TO 5 
620 

5720 LET (d+c*y) * (d+c*y) --4*k* ( 

i +e*y) s IF z<0 THEN NEXT y: GO 
TO 5620 

5730 LET x =(((-<d+c*y)+SQR z)/(2 
*k)) -h )*r +127: IF x >*0 AND x<=25 
5 THEN PLOT x, C íy-i)*r+S7) 

5740 LET □=<í(-Cd+c*y)-SQR z>/<2 
*k))-h)*r+127: IF p$="s" THEN G 
O SUB 5760 

5745 IF g >=0 AND g<=255 THEN PL 
OT g,((y—i)*r+8 J ) 

5750 NEXT y: GD TO 5620 
5760 LET s=™(r*SQR z)/k: IF x>25 
5 AND □<O THEN PLOT C.(<y-i)#r+ 
87)s DRAW OVER 1;255,6: RETURN 
5763 IF g>255 AND'x<O THEN PLQT 
0,((y~iF * r+87) : DRAW O VER 1 ¡¡ 25 
5,0: RETURN 

5766 XF x>255 THEN PLOT 255,((y 
-1> *r+87): DRAW OVER 1 s -(255-x- 
s),0: RETURN 

5769 IF g<O THEN PLOT O.(íy-i)* 
r+87 >: DRAW ÜVER 1;-<s-q),O: RE 
! URN 

5772 IF g>255 THEN PLOT 255. (ív 
-i)*r+87T: DRAW OVER l;(g~s+255 
),0: RETURN 9 y 

5775 IF x<=255 AND g>=0 THEN DR 
AW OVER 1:5,0: RETORN 
5778 IF x<6 ÍHEN PLOT Ü,(<y~i)* 
r+87S: DRAW OVER 1s-í-*~x) ,O: R 
ETURN 

5780 RETURN 

5800 LET wv~4: GO TQ 5400 
3850 LET h=sx: LET i : =sy: IF c=0 
AND b=0 THEN PLOT 127,0: DRAW O 
,175: GO TO 5550 

5860 IF c=0 AND k=0 THEN PLOT O 
,87: DRAW 255,0: GO TO 5550 
5870 IF -<n + l* (h-127) )/(n-i+Q7>0 
AND -í n + 1*(h ~127))/m-i+87<175 TH 
EN PLOT O,-(n+1*(h-127)>/m-i+87 
: DRAW 255,255*(-l/m> : GO TQ 555 


5900 FOR x—h—127/r TO h+128/r ST 
EP o/r: IF INKEYÍ~"p" THEN GO T 
O 5620 

5905 Ik (e+c*x) =0 THEN NEXT >: 
j91ü LE £ g = (-■■ (-f +d#x ) / (e+c*:<) — i ) * 
r+87: IF a>=0 AND a<=175 THEN P 
LUI ( <x-hT*r+127> IF a 

ND g >=88 THEN DRAH OVER 1;O,17 
5-gNEXT xs SO TO 5620 ’ 

5915 IF Df*"s" AMD g<88 AND g>=0 
THEN DRAW OVER liO.-g 
5920 NEXT xs GO TO Éi6¿0 
6000 REM CONICA POR CONDICIONES 
$>010 CLS : LET ww=0: DIM x <5) s D 
IM y (5) 

"vy K*§ k 

eTI^UNTOS •' 2 -‘ TANGENT 

6030 LET jf==INKEY:fs IF j*»."' 1 THE 
N GO TO 6U30 

6040 GO TO 6030+ < j$="1")*70+(j 
"2") *170 

6110 CLS : FOR n=l TO 5: PRINT A 
rl,.5¿»yiL Intaduce el punto ";n: IN 
F UT Punto (!■:, y) x = " ; :< ín) ; " y= 
Nvín): PRINT AT n,5:n; "("•>: (n); 
M . f, :yín) :") M : NEXT n ? 

6120 RESTORE 6120: READ p,q,r.s, 
t,u: DATA víl) 7 y(2),x(2>-xíl>!~p 
*x(i)-g*yíi> ,y<3)-y 1 4),x(4)-xí 3) 

6130 READ kí,bl,cl,dl,el,-Fl: DAT 
A p*s „ q*t.+ p*t+s*q , Li^p+r*s , u*q+r* 

6140 RE STORE 6140: READ 
t , u: DATA yfD-yl 3 > . x (3) -x CÍ ) 
*xU) 7 q*y(í) ,y(2)-yU) ,x <4)-xta“ 

, — s*x ■. 2 > ™t*y 1 2) 

¿150 RESTORE 6130: READ k2,b2,c2 
d2 s2 f2 7 

¿16Ó LÉT^p=k2*x(5)*x(5)+b2*y(5)* 
y^5^+c2*:;X5) *y (5) +d2*x Í5) +e2*y (5 

6165 CLS : LET q-k 1*;; (5) *:■: (5) +b 1 
*y < 5) * y < 5) +c 1 *x (5) *y (5) +d 1 *:■; (5) + 
el*y(3í+fl: IF d= 0 OR q=0 THEN 
PRINT " ESTOS PUNTOS ESTAN EN U 
NA CONICA DEGENERADA"; Gü 

T O 1 ü 1 




6170 RESTORE ó 170: READ s , k , b . c , 
d,e,f: DATA -q/p,kl+k2*s,bi+b2*s 
y c 1+C2*s d 1 +d2*s y e 1 +e2*s - f 1+f 2*s 
618O ]. - i; < >O THEN RESTOLE 618O: 

READ b,c,d,e,f,k: DATA b/k.c/k, 
d/k.e/k,f ?k ’ls ¿O TO 6187 
6182 IF bOü THEN RESTORE 6182: 

READ k,c.d,e,í,b: DATA k/b,c/b, 
d/b,e/b,f7b’1: ÉO TO 6187 
6184 IF cOu THEN RESTÜRE 6184: 

READ k,b,d,e, i ,c: DA1A k/c,b/c, 
d/c.e/c,f/el1 1 

6187 IF'ww=6 THEN LEI ww=0¡ GO 
TO 1090 

6188 F : 'RINT " Estas condiciones d 

©■finen la cónica: k; " ::"-2 +" 

, , b ; 11 y 2 + 11 ■ * c i 11 xv + 11 d ■ 11 y + 

1 iiigr y +"., f: “ * o" ■ iP ww< > 

b AND ww<>4 1'HEN PRINT , , : F'RIN 
T FLASH 1;" PULSA UNA TE 

OLA ’ PAUSE 30: PAUSE O: 

(30 TO 1090 

6190 IF ww=5 THEN LET ww=4: LET 
s-qs PRINT '• SEGUNDA": GO TO 64 

6193 LET ww-6: PRINT : PRINT "Es 


¡e una: Pulsa 1 
*5 IF INKE.Yi=*" 1 


o 2 


THEN LET s=p 
READ k,b,c,d,e,í 


coge 
619! 

: RESTORE 6470: 

: GO TO 6180 
6197 IF INKEY$="2" THEN LET s=q 
: RESTORE 6470: READ k.b.c.d.e.f 
: GO TO 6180 
619E3 60 TO 6195 

6210 CLS : FOR n-'l TÜ 4: PRINT A 


T O,O :" Int aduce el punta "jn: IN 
PUT "Punto (;<,y) x-';x(n) y= 

;;; y < n > : t PR I NT AI„q , 5 ; h ; ; x ( n ) ; 

D 1 C 1 


( .f:y(n);")": ME X T'n 
6225 RESTORE 6120: READ p.q,r 
t,u: RESTORE 6130: READ M 

6230 RtiSTORE 6140: READ p.q.r.s, 
t *u: RESTORE 6130: READ k¿yÓ2jc¿ 
a2 f 2 

624Ó ÍI^IPUT "Introduce la TANGENT 
E: ax + bv + 


6^50 CLS 


by + c =0 
a—";ps" b = ";q; " c~ 
RESTORE 6490: READ s, 


t y U , S , t , U N S , t , U , S , 

6455 ÍF u=0 AND w? >0 


EN 


LET 

IF 


v/w: 
w=0 AND 


t,V,S,t,V,5,t, 

W AND v<>0 TH 
GO TO 6470 
v< >0 THEN LET s 


~-~U/v: Gü TO 6470 
6460 LET s=v*v-4*u*w: IF s<0 THE 
N PRINT "CONICA DEGENERADA": Gü 
TO 101 

6465 LET p=(-v+SQR s)/(2*w>: LET 
q=(—v—SQR s)/(2*w): IF p=0 AND 
a=0 THEN PRINT " ESTAS CONDICIO 


SON 


DE UNA 
: Gü TO 101 
q™0 THEN LET s=p: 


CONICA DEG 


GO TD 


PRINT 

estas 


ENERADA' 

6466 IF 

6470 

6467 IF p=0 THEN LET s=q: GO TO 
6470 

6468 LET ww~5: LET s-p: 

Hay dos cónicas con 

condiciones: PRIMERA" 

6470 RESTORE 6470: READ k.b.c.d. 
e,f: GO TO 6180: DATA kl+k2*s,bi 
+b2*s , c 1 +c2+s, d 1 +d2*s , el+e2*s , f 1 
4-f2*S 

6490 DATA r*kl*b1+p*cl*el/4+q*d1 
*c1/4,el*kl*q/2+cl*cl*r/4+bl*dl* 
p/2 ,r-* <s--t) , p*f l*-b l+q*d l*el /4+r* 
el*cl/4,p*el*el/4+cl*fl*q/2+bl*d 
l*r/2-u+p*(s-t),q*fi*kl+r*dl*c:l/ 
4+p*eí*d1/4,kl*el*r/2+cl#fl*p/2+ 
q*dl*d1/4,u+q*(s-t) 

6492 DATA r*7kI*b2+k2*bU+□*(c1* 
e2+c2*el)/4+q*<d1*c2+d2*c1)/4,Ce 
I*k2+e2*k 1 > *q/2+-c Hc2*r/2+ (bl*d2 
+b2*dl)*p/2.r*(s-t),p*<fl*b2+f2* 
bl)+q*<d I*e2+d2*-el)/4+r*(el*c2+e 
2*c 1 ) /4,p*eI*e2/2+ (cl*f2+c2*f 1) * 
q/2+(bI*ü2+b2+d1>*r/2, v+p* (s-t), 
q*<fI*k2+f2*kl)+r*(dl4c2+d2*c1 )/ 
4+p*(el*d2+e2*d1 > /4,(kl-#e2+k2*ei 
)*r/2+ícl*+2+c2*í1)*p/2+q*d2+d1/ 
2,v+q*(s-t) 

6494 DATA r*k2x-b2+p*c2*e2/4+q*d2 
■X-C2/4 , e2*k2*q/2+c2*c2*r /4+b2*d2* 
p/2, r* (s-t),p*f2*b2+q*d2*e2/4+r* 
e2*c2/4,p^e2*e2/4+c2*f2*q/2+b2*d 
2*r/2.w+n*(s-t5,2*k2+r*d2*c2/ 
4+p*e2*d2/4 , k2*e2*r/2+c2-»-f 2*p/2+ 
q+d2*d2/4,w+a*(s-t) 





PROGRAMAS 

TENSORES 



Los iniciados en el cálculo tensaría! encontrarán 
indudablemente interesante este programa. 
Trabaja con tensores de dimensiones hasta 
cuatro. Las matrices aparecen en pantalla 
según se introducen y existe la posibilidad 
de rectificar errores. El menú tiene dos 
opciones: cambio de base y cambio de especie 
del tensar. Todas las explicaciones necesarias 
van incluidas en el programa. 

G. Candela 

20 CLEAR : INPUT "Dimensio 
n del espacio ?<1—4)";ds IF d>4 
GR d<1 THEN GG T0 20 

30 DIM c(d,d)s DIM g(d,d): GD 
T0 65 

35 CLS : PRINT FLASH 1; AT 0,6 
;“MATRIZ DE CAMBIO C" 

40 FGR n-1 TO ds FÜR m=l TO ds 


RRINT AT 19,0;"Introduce el ele 
menta c ( " ; n; " , " : m; " > ¡¡ 11 : INPUT cí 
n , m): RRINT AT n*3+m“2,(m*7-6>;c 
(n,m): NEXT ms NEXT n 

50 INPUT "Hay errores ? (s/n>" 

;q$; IF q$="s" THEN INPUT "EIem 
ento erróneo ?: i=" ;n¡¡" j=";m: I 

F n >=1 AND m>=1 AND n<=d AND m< = 
d THEN : PRINT AT n*3+m-2, 

□VER 1;c(n,m): PRINT AT 19,0;"I 
rrtroduce el elemento c ( “ ; n; " , 11 ; m 
INPUT c(n,m>s PRINT AT n* 
3+m—2,í m*7 — 6>;c(n,m): BO TO 50 
55 IF ^<>"5" THEN GD TO 1300 
60 60 TO 50 

65 CLS : PRINT FLASH 1;AT 0,5 
; "MATRIZ FUNDAMENTAL G ,! 

70 FGR n=l TÜ ds FOR m-1 TG d; 








PRINT AT 19,0; " Introduce el ele 
mentó g ( " ; n ; " , " ; m; " > : " i INF'UT g( 
n,m): F'RINT AT n*3+m—2, <m*7“*6) ; g 
(n,m>: NEXT m: NEXT n 

80 INF'UT "Hay errores ? (s/n) ” 
;qt: IF q$="s" THEN INPUT "Elem 
ento erróneo ?: i=";n;" j=";m: I 

F n>=l AMD m>~1 AND n<=d AND m< = 
d THEN s F'RINT GVER 1; AT n*3+m- 
2,m*7~6;q (n ,m> ¡ F'RINT AT 19,0; "I 
ntroduce el elemento g('‘;n; " /'jm 
INF'UT g(n,m): F'RINT AT n* 
3+m-2,<ro*7-6>;g(n,m>: GÜ TO 80 
90 IF qí< >"s" THEN GD TQ 100 
95 GG TO 80 

1000 CLS : PR1NT "INTRODUCE LA E 
SF'ECIE DEL TENSOR: 

Indice de fil 

a? 1-COVARIANTE. 

2-CÜNTRAVARIA 

NTE. " 

í010 INF'UT a: IF aOl AND a< >2 T 
HEN GÜ Tü 1010 
1015 PRINT AT 2,11;"columna?": 
INPUT X! IF KOI AND x<>2 THEN 
GÜ TQ 1015 

1020 F'RINT AT 2,11; "tila de matr 
iz?": INF'UT es IF cOl AND c<>2 

THEN GÜ TO 1020 
1100 CLS : F'RINT AT 0,10; FLASH 
1;"TENSOR T" 

1105 DIN ttd,d,d)i DIM r(d,d,d>: 
FÜR m= 1 TD d 

1110 FÜR k = l Tü di FÜR n-1 TO d: 

PRINT AT 19,0;"Introduce el ele 
menta t(";k;",";n;",";m;">: " : IN 
RUT t < k , n ,m): PRINT AT k*3+n-2,< 
n*7-ó);t(k,n,m): NEXT n: NEXT k 
1120 INPUT "Hay errores ? (s/n)" 
;q$: IF qí="s" THEN INF'UT "Elem 
ento erróneo ?s i : =";k;“' 
k =";m: IF k>*l AMD k<=d AND n>=l 


AND m >-1 AND n<=d AND m<~d THEN 
PRINT AT fc*3+n-2,(n*7-6>; ÜVER 
1; t (k , n , m) a F'R INT AT 19,0; " In t r 
aduce el el emento t ( " ; k ; " , 11 ; n ; " , 
" ; m; " ) r " : INPUT t(k,n, m) s F’R I NT 
AT k*3+n~2,(n*7~6);t(k,n,m): GO 
Tü 1120 

1130 IF qí<>"s" THEN GO Tü 1150 
1140 GD TD 1120 
1150 CLS : NEXT m 
1160 GÜ Tü 1250 

1200 CLS : PRINT AT 5,2;"MENU:": 
PRINT : PRINT " 1-CAMBIO DE BAS 

F -' 2-CAMBIO DE ESP 

ECIE." 

1210 IF INKEY*="1" THEN L.ET w=»l 
: LET g--0: GD Tü 35 
1215 IF INKEY*-"2" THEN GO TÜ 2 
000 

1220 GÜ TO 1210 

1250 CLS : PRINT AT 11,11; "CALCU 

LANDO": LET w=0: LET g*l¡ IF a>l 
THEN GÜ TD 1350 
1255 IF X >1 THEN GÜ TÜ 1450 
1260 IF c>l THEN GÜ TÜ 1550 
1265 GG TQ 1200 

1350 CLS : PRINT AT 11,11; FLASH 

15"CALCULANDO": FÜR j = l TQ da F 
OR i — 1 Tü d: FÜR 1=1 TO d 
1360 LET b=Ür FÜR m«l TD d: IF w 
= 1 THEN LET b“b+c (i , m) *t (m , I , ,;j) 
a NEXT m 

1370 IF g = l THEN LET b=b+g(i,m) 
*t (m, I , j ) : NElX T m 
1390 LET r(i,1, j.) »b 
1400 NEXT 1: NEXT i: NEXT j 
1420 FÜR j = l TD da FÜR 1=1 TD da 
FÜR 1=1 TO d: LET t<l,i,j)=r(l, 
i , j) a NEXT 1: NEXT i a NEXT .j 
1430 IF X = 1 AND wOl THEN GÜ Tü 


1450 FÜR j=l Tü d: FÜR i=l Tü da 
FÜR 1=1 TO d 

1455 LET b=0: FÜR m=l Tü d 
1465 IF w=l THEN LET b**b+t(i,m, 
j)*c(1,m)a NEXT m 

1475 IF g=l THEN LET b=b+g(I,m> 

*t(i,m,j)¡ NEXT m 

1490 LET r<i,1,j)=b 

1500 NEXT ls NEXT i a NEXT j 

1520 FÜR j=l TD da FÜR i=l TO d: 

FÜR 1 = 1 TO da LET t(l,i,j)=r(l, 
i,j): NEXT 1: NEXT i a NEXT j 
1530 IF c = l AND wOl THEN GÜ TO 
1700 


VALENTE computación 

MADRID BUENOS AIRES 
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roí LET j( 
1605 FÜR 
LET b=Or. 

)=b s MEXT 


1550 FQR i=l T0 ds FQR 1=1 TO ds 
FOR n=1 Tü d: LET b=0; FOR m=l 
TO d 

1560 IF w=l THEN LET b=b+cíi,m) 
*r (1,n,m>: NEXT m 
1565 IF g=l THEN LET b=b+gCi,m> 
*r (1 , n , m) s NEXT m 
1570 LET t (1,n,i)=b 
1580 NEXT n: NEXT Ib NEXT i 
1585 IF g=l THEN LET g=0: GG TÜ 
1700 

1600 DIM j (d . el) s FOR j = 1 TO d: F 
OR i=l TÜ d: LET b=Ü: FDR m=l TO 
ds LET b=b+c í j ,m) *g (m , i ) s NEXT 


j , i ) =b: 

NEXT i : 

NEXT j 

j=l TO d 

: FOR i 

=1 TO ds 

FOR m=1 

TO ds 

LET b=b+ 

j , m)s NE 

X T tu: L 

ET g(j , i 

i: NEXT 

j 


a FOR j = 

1 TD ds 

PRINT " 


1700 CLS a FÜR j = l TD da PRIN1 " 
TENSOR: MATRIZ "?js FOR n = l. TO d 
a FÜR m«l TO d 

1710 PRI NT AT n*3+m , m*7—6 ; t ( n , fin , 


1720 NEXT m: NEXT ns PRINT "Pul* 
a tecla": PAUSE O: CL..B a NEXT j 
1730 CLS a PRINT "MATRIZ FUNDAME 
NTAL G": FOR n=l TO d: FOR m=i T 
ü ds PRINT AT n*3+m,m*7-6;g(n,m) 
s NEXT m: NEXT n; PRINT "Pulsa t 
ec:la": PAUSE O: GG TO 1200 
2000 REM CAMBIO DE ESPECIE 
2010 CLS a PRINT "INTRODUCE LA N 
UEVA ESPECIE a 

Indice de Til 
a? 

1- COVARIANTE. 

2- CQNTRAVARIA 

NTE. " 

2015 INPÜT da IF dOl AND d< >2 T 
HEN GO TO 2015 

2020 PRINT AT 2,11s"co1umn a?" s I 
IMPUT es IF eOl AND e< >2 THEN G 
Q TO 2020 

2025 PRINT AT 2,11;"fila de matr¬ 
iz?": IMPUT f: IF fOl AND -f < >2 
THEN GO TÜ 2025 
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Las números mayores que 65535, menores que —65535 y 
decimales se codifican en forma de coma flotante. En este 
artículo explicamos cómo se forman esos números para poder 

utilizarlos con el calculador. 


E n el Speclrum los números se 
pueden separar en 2 grandes 
grupos: los enteros del — 65535 
al 65535, a los que denominamos 
enteros normales, y los restantes 
números, llamados números en co¬ 
ma tlotante. 

ENTEROS NORMALES 


ma flotante se parte de un procedi¬ 
miento matemático que es el si¬ 
guiente: cualquier número, entero 
o decimal, se puede expresar como 
X por 2 elevado a Y, es decir, X ■ 2 V , 
donde X es la mantisa e Y el expo¬ 
nen le. 

Tras ejecutar el programa 2, y po¬ 
ner un breakpoint en la línea 100 ob¬ 


lara ve más claro la codificación 
de estos números se debe ejecutar el 
programa 1. Para observar el resul¬ 
tado requerido se coloca un break¬ 
point en la línea 100 y se ve el conte¬ 
nido de los registros del Z-80. 

La función de la subrutina 
STACK-FETCH es la de sacar del 
stack del calculador el quinto y po¬ 
nerlo en el acumulador, el cuarto en 
el registro E, el tercero en el registro 
D, el segundo en el registro C, y el 
primero en el B. 

Así pues, si has ejecutado el pro¬ 
grama y has hecho el breakpoint, 
observarás que A=0, E=0, D=246d, 
C=9d y B=0. Los registros A y B en 
este tipo de codificaciones no son 
utilizados, el registro E al tener un 0 
indica que el número es positivo, el 
C contiene el byte de menor peso y 
el C el de mayor; si el número fuera 
negativo el registro E contendría un 
255 d. 

NÚMEROS EN COMA 
FLOTANTE 

Para codificar un número en co¬ 



En el Spectrum 
números se dividen en dos 
grandes grupos: los 
enteros normales y los 
números en coma flotante. 


servarás que al acumulador y el re¬ 
gistro B, ya no son cero y que el re¬ 
gistro E tiene un valor distinto de 0 o 
255d, con lo que el número que es¬ 
taba en el stack del calculador ya no 
es un entero normal, sino que está 
en coma flotante. 


PROCEDIMIENTO DE 
CONVERSION A COMA 
FLOTANTE 


Se divide en 2 partes fundamenta¬ 
les: determinación del exponente y 
determinación de la mantisa. 







nurmis bi com FimmE 


Determinación del exponente 

Tomamos el número 9.5, para co¬ 
dificarlo a coma flotante se halla un 
número entero n tal que 2 elevado a 
n sea inmediatamente mayor que 
9.5. En este caso. 2 elevado a 3 es 8 
con lo que 9.5 > 8, si n=4 entonces 
9.5 < 16 con lo que el número ente¬ 
ro buscado es 4. En el Spectrum el 
exponente se halla sumando 128 
más n. Si has ejecutado el programa 
anterior verás que el acumulador 
tiene un 132, con lo que A contiene 
el exponente de la conversión a 
punto flotante. 


Determinación de la mantisa 


La mantisa está compuesta por 4 
bytes. Siguiendo con el ejemplo an¬ 
terior, se divide 9.5 entre 2 elevado a 
n y el resultado es 0.59375. Para ha¬ 
llar la mantisa se utiliza una serie 
numérica de! tipu teniendo b valo¬ 
res entre 1 y 32 ya que la mantisa 
tiene 4 bytes (8x4=32). 


S¡ b=l el primer término de la se¬ 
rie será: 1/2’= 0.5, si el resultado 
obtenido anteriomente es mayor o 
igual que Ü.5 lo restamos, asi 
0=59375-0.5=0.09375. Al restarlo 
ponemos a I el bit de mayor peso del 
primer byte. Como este bit siempre 
va a estar a I si las operaciones son 
correctas, el Spectrum lo usa para 
identificar si el número es positivo, 
bit a 0, o si es negativo, bit a 1. 



La serie mencionada seguirá: 
1/2 2 =0.125, 0.0625, 0.03125, 

0.015625, hasta b=32 inclusive. Para 
b=2 como 0.09375 es menor que 
0.25 será un bit puesto a cero, para 
b=3 0.09375 sigue siendo menor 
con lo que el siguiente bit será otro 
cero, pero para b=4 0.09375 es 
mayor que 0.0625 con lo que se lo 
restamos, 0.09375-0.0625=0.03125 



y ponemos a 1 el bit de la sucesión 
b=4. Para b=5, al ser el resultado de 
la resta anterior igual al valor de la 
sucesión para b=5, lo restamos y po¬ 
nemos el bit b=5 a 1. Como el resul¬ 
tado esO, todos los demás bils desde 
b=6 hasta b=32 serán cero, con lo 
qqe la conversión ha terminado. 


CONTENIDO DE LOS 
REGISTROS 

Después de explicar cómo se ha¬ 
lla la mantisa y el expunenle, obser¬ 
varás que el acumulador contiene 
un 132, que E, que corresponde al 
primer byte de la mantisa, tendrá un 
valor 24d, D, que es el segundo byte, 
C, el tercero, y B. el cuarto son todos 
cero. 

Como sabemos que el proceso de 
conversión es lento y complicado, 
hemos realizado un programa BA¬ 
SIC que convierte cualquier núme¬ 
ro a coma dotante (Listado 6). 


LISTADO 1 


io 

ORG 

50000 

20 

LD 

A *255 

30 

CALL 

#2D28;STK-A 

40 

LD 

A, 10 

50 

CftLL 

#2D28;STK-A 

60 

RST 

#28;10,255 

70 

DEFB 

#04; 255*10 

80 

DEFR 

#78;2550 

90 

CALL 

#2BF1iSTK-FETL 

100 

PET 



LISTADO 2 


10 

ORG 

50000 

20 

LD 

A, 19 

30 

CALL 

#2028;STK—A 

40 

LD 

A,2 

50 

CALL 

#2028;STK-A 

60 

RST 

#2Q;2,19 

70 

DEFB 

#05;19/2 

00 

DEFB 

#3B;9.5 

90 

CALL 

#2BF1¡STK-FETC 

100 

RET 



LISTADO 3 


10 

QR8 

50000 

20 

RST 

#20 

30 

DEFB 

#34;STK-DATA 

40 

DEFB 

MANTISA 

243;EXPONENTE 

50 

DEFB 

7.OU1101 1 

60 

DEFB 

7.00110011 

70 

DEFB 

7.00110011 

00 

DEFB 

7.00110011 

90 

DEFB 

#38 

100 

CALL 

#2¿E3;PRINTFF 

1 10 

RET 



LISTADO 4 


10 

ORG 

50000 

20 

RST 

#28 

30 

DEFB 

#34¡5TK-DATA 

40 

DEFB 

mantisa 

52;EXPONENTE 

50 

DEFB 

24 ;0,0,0 

60 

DEFB 

#3B 

70 

CALL 

#2DE3iPRINTFP 

BO 

RET 



LISTADO 5 


10 

ORE 

50OOO 

20 

E 

LD 

A,132;EXPONENT 

30 

LD 

E,24;MANTISA 

40 

LD 

D,Q; 

50 

LD 

C, 0; 

60 

LD 

8,0; 

70 

CALL 

#2AB2;LOS REGÍ 

5TRÜS DEL 

CALCULADOR 

90 

CALL 

#2DE3;PRINTFP 

90 

RET 










COMA FLOTANTE EN 
FORMA DE STK-DATA 

La ruiina llamada stk-data, cuyo 
código de! calculador es 34h <52d>, 
permite introducir en el stack del 
calculador cualquier número, pero 
en coma flotante y de una manera 
algo peculiar. 

Un número en coma flotante usa 
5 bytes para su codificación. En la 
forma stack data puede utilizar 2, 3, 
4 o 5 bytes para ese mismo número. 
En esta forma, el exponente especi¬ 
fica el número de bytes que necesita 
la mantisa para determinar el núme¬ 
ro y además, el exponente real. Hay 
que dejar claro que si el exponente 
indica que el número de bytes nece- 



DISPONEMOS DE TAPAS ESPECIALES PARA 

SUS EJEMPLARES DE 





(cada tapa ea para 6 ejemplares) 


Mespectrun 


SIN NECESIDAD DE ENCUADERNACION 

prÉcio^Ñídad 

fc5 0 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envíelo a: 


Mospectrun 


Bravo Murillo. 377 

Tel. 733 96 62 - 28020 MADRIO 


Por favor envíenme . tapas para la encuadernación de m ís 

ejemplares de TODÜSPEGTRUM al precio de G5Gpt&. más gastos de envió. 
El importe ¡o abonaré 

Ü POR CHEQUE O CONTRA REEMBOLSO □ CON MI TARJETA DE 
CREDITO □ AMERICAN EXPRESS - □ VISA □ fNTERBANK 


Número de mi tárjela: |_|_| | J_ j ¡ ¡ [ ] |'] | [ | ] | ] ] [ | | . I ¡ I ú 

Fecha de caducidad . Firma 


NOMBRE 


DIRECCION 
CIUDAD .. . 


PRGVINGFA 


C. P. 





































rmimis bi com flotwte 


sarios para la mantisa es 2, los 2 res¬ 
tantes contienen cero. 

El mismo programa BASIC, con¬ 
vertidor a coma flotante, transforma 
el número a la forma de stack data. 
El programa parte de un número es 
coma flotante, lo transforma al tipo 
stack data. Vamos a explicar ahora 
el proceso inverso: como partiendo 
de la forma stack data, al Spectrum 
sabe cuál es el exponente real y el 
número de bytes de la mantisa. 

El primer byte que sigue a! código 
34h (52d) es el exponente en forma 
stack dala. Para hallar el exponente 
real divide el exponente en forma 
stack dta entre 64d. El entero del co¬ 
ciente más 1 indica el número de by¬ 
tes de la mantisa que tiene ese nú¬ 
mero en la forma stack data. El resto 
de la anterior división más 80d y da 
el exponente real. 

Unos ejemplos de este procedi¬ 
miento están expuestos en los lista- 



La rutina STK-DATA, cuyo 
código del calculador es 
34 le permite introducir en 
el stack del calculador 
cualquier número en una 
forma algo peculiar. 


dos 3 y 4. En el listado 4 el número a 
introducir es el 7.85 y en el 5 el 9.5. 
Aunque éste es el sistema utilizado 
en el Spectrum para introducir nú¬ 
meros en el stack del '-'kulador, 
también se pueden introducir en la 
forma normal en coma flotante (lis¬ 
iado 5). 

Antonio Luis Matías 
y Francisco Javier Rodrigue/ 



LISTADO 6 


10 LET CQC=0: LET M=Os LEI X=5 
: INPUT "NUMERO: "¡¡NU: LET NU=ABS 
NU 

90 PRINT " NUMERO ";NU? PRINT 

100 FOR I=—128 TO 128 

110 IF NU<2 A I THEN GO TO 200 

120 NEXT I 

200 PRINT 11 EXPONENTE= 128+1 
210 LET Q=NU/2-'I 
220 FOR B~1 TO 32 
230 IF Q>=1/2"B THEN GO TO 300 
240 PRINT O;¡ LET M=M+1 
250 IF 8=8 OR N=16 OR B=24 THEN 
PRINT 

255 NEXT B 

260 IF B>32 THEN GO TD 400 
300 PRINT 1;: LET M=M+1: IF B=B 
OR B=16 OR 8=24 THEN PRINT 
305 IF B>=9 AND B<=16 THEN LET 


CUC=1 


306 IF 
T C0C=2 

B >= 17 

AND 

B<=24 

THEN 

LE 

307 IF 
T C0C=3 

B >=25 

AND 

B<=33 

THEN 

LE 


310 LET Q=Q-1/2'B 
320 GO TO 255 

400 PRINT AT 9,O;"RECUERDA QUE 
EL BIT DE MAYOR PESO DEL PRIM 
ER BYTE INDICA EL SIGNO" 

410 LET E=128+1 
420 LET R=E“BO 
430 LET DAT=(64*C0C)+R 
435 PRINT s PRINT 

440 PRINT "EXPONENTE EN STK-DAT 
A ";DAT 
445 PRINT 

450 PRINT "NUMERO DE BYTE ";COC 
+ 1 
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sencilla, con ejemplos, 
programas y organigramas. 
(110 páginas, tamaño 13,5 x 21) 



P.V.P, 750 PTAS. 

UVA INCLUIDO) 

Un libro especialmente 
dedicado a los que se inician 
por vez primera en el mundo 
del Spectrum. 

(100páginas, tamaño 13,5x21). 



P.V.P. 900 PTAS. 

UVA INCLUIDO) 

Un compendio de los 
programas más diversos con 
los que podrá aprender 
jugando las importantnes 
características del BASIC. 
(258 páginas,, tamaño 

15,5 x 21,5). 





P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Con utilidades, juegos 
exploxivos y gráficos 
dinámicos que lleva al BASIC 
hasta el mejor 
aprovechamiento de sus 
posibilidades, 

(200 páginas, tamaño 

15,5 x 21,5). 


P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Una inestimable ayuda que 
complementará la que 
proporciona el manual del 
ordenador, 

(108 páginas tamaño 

13.5 x 21,5), 


P.V.P. S0Ü PTAS. 

(IVA INCLUIDO) 

Muestra una visión más 
completa del correcto 
funcionamiento del juego de 
instrucciones de) G-64. 

(108 páginas, tamaño 

13,5 x 21,5). 
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C/BRAVO MURILLO. 377 
28020 MADRID 



COPIE O RECORTE ESTE BOLETIN DE PEDIDO. 

DESEO RECIBIR LOS SIGUIENTES TITULOS: 

15 HORAS CON EL SPECTRUM (P.V.P. 750} □ 

LOS MEJORES PROGRAMAS PARA EL ZX SPECTRUM (P.V.P. 900) □ 

LOS MEJORES PROGRAMAS PARA EL COMMODORE 64 (P.V.P. 800) □ 

EL 64 MAS ALLA DEL MANUAL I (P.V.P. 800) □ 

EL 64 MAS ALLA DEL MANUAL II (P.V.P. 800) □ 

(más 100 pías, de gastos de envío). 

El importe lo abonaré POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA 
DE CREDITO □ American Express □ Visa □ Interbank □ 


Número de mi tarjeta: 1 | | | | | | | 1 | | | j ]_ J I lí I I I 1 I I I 1 


NOMBRE _ 

CALLE_ 

CIUDAD_ 

PROVINCIA . 


C, P. . 











































































PARTADO 



Dirige lus cartas a: 
Todospectrum 
Bravo Murillo. 377, 5/’-A 
28020 Madrid 


OPERATIVO VOLATIL 

En un número anterior de su estu¬ 
penda revista apareció un artículo con 
el título UN NUEVO SISTEMA 
OPERATIVO PARA EL SPEC- 
TRl M, realizado el programa pro¬ 
puesto, aparecieron las deseadas 04 
columnas y lodos los comandos adi¬ 
cionales (el programa es estupendo). 

Con este OPERATIVO comencé 
un programa propio que, después de 
pulirlo y perfeccionarlo, funcionó 
perfectamente. Después del SAVE 
correspondiente desconecté el orde¬ 
nador y... al día siguiente comenzaron 
mis problemas, pues al cargarse el 
programa este funcionó ¡en 32 colu¬ 
nia ñas y no en 64 como fue realizadoI 

Mi pregunta concreta es cómo pue¬ 
do hacer para que mis programas sal¬ 
gan por pantalla en 64 columnas. 

Vicente Serrador 
Mislala (Valencia) 


El nuevo sistema operativo que 
imple menta este programa no es 
más que una copia en RAM de! bu¬ 
cle principal del operativo del Spee- 


trum, a la que se han hecho una se¬ 
rie de modificaciones y se le han 
añadido algunos comandos y Pun¬ 
ciones nuevas. F J ur lo tanto este pro¬ 
grama deberá estar en memoria eje¬ 
cutándose si pretendes hacer uso de 
alguna de sus ventajas. No basta con 
que hagas un programa cuando esté 
vigente este operativo para que 
vuelva a aparecer cada vez que lo 
cargues, ya que, como sabrás, la me¬ 
moria RAM de tu ordenador es vo¬ 
látil, lo que quiere decir que los da¬ 
tos que se encuentren en ella sólose 
conservarán mientras el ordenador 
permanezca encendido. Deberás, 
pues, incluir al principio de tu pro¬ 
grama una serie de instrucciones 
que carguen y «lancen» el nuevo 
operativo, y salvar tras aquél el códi¬ 
go correspondiente. 


LOBOTOMIA PARA EL 
SPECTRUM 

— ¿Es posible substituir algunas 
pastillas de la ROM por unas RAM, 
teniendo en cuenta el cambio de las 
otras ROM por unas EPROM de pro¬ 


grama totalmente diferente a la ROM 
standard del Speclrum? (Natural¬ 
mente, estas RAM deberían ser PO- 
KEahles en C/M). 

— En caso de que se pudieran cam¬ 
biar, ¿han de ser TMS 4532 (L3/L4) 
o es posible utilizar otras? 

— El interface TV PAL que envía 
la señal de TV en el Speclrum obtiene 
la información de las direcciones de 
memoria 4000H-5800H, parece ser 
que esto es independiente del progra¬ 
ma en ROM. ¿Es posible cambiar las 
direcciones de archivo de pantalla por 
medio de Hardware? 

— También parece ser que el Mas- 
kable Interrupt sucede periódica¬ 
mente, e independientemente del 
programa ROM se dirige a la Restarl 
Roufine 0Q38H, ¿es esto cierto? 

David Sáez 
Barcelona 


En teoría es posible cambiar parte 
de la ROM por RAM, pero has de sa- 
berquelos 16 Kbytes de ROM se en¬ 
cuentran en un único chip, que ha¬ 
bría que sustituir por una EPROM y 
variosde RAM. En cuanto a los chip 
a utilizar, difícilmente podrían ser 
los 4532 de Texas Instruments, pues 
es muy raro el encontrarlos a la ven¬ 
ta en comercios; además, el utilizar 
cualquier chip de RAM dinámica 
daría ciertos problemas para conse¬ 
guir que se efectuara el «refresco» 
con normalidad, por lo que parece 
más aconsejable usar alguno de 
RAM estática. 

El encargado de leer la memoria 
de pantalla para enviar al modula¬ 
dor la información necesaria es la 
polifacética ULA, por lo que cam¬ 
biar las direcciones de esta zona es 
inviabie, al menos desde el punto de 
vista práct ico. Además, el uso que se 
hace en el Speclrum de un doble 
bus de datos para esta zona haría ne¬ 
cesario situarla en esas 16 primeras 
Ks de RAM. 




En cuanto a las interrupciones 
enmascarabas, en el modo 1 se salta 
inevitablemente a la dirección que 
señalas, pero pueden prohibirse las 
interrupciones con Di o usar el mo¬ 
do 2 para que saltea la dirección que 
nos interese. Para esto sería necesa¬ 
rio dar a! registro 1 el valor apropia¬ 
do para que apunte a la dirección en 
que, a su vez, vamos a almacenar la 
dirección de la rutina de interrup¬ 
ciones, y, tras esto, hacer IM 2 antes 
de nada en el pumo de entrada de la 
ROM, allí donde se midializa el sis¬ 
tema (dirección Q000H). En cuanto 
a las interrupciones no enmascara- 
bles (NM1), saltan siempre a la di¬ 
rección 0066H, donde deberá estar 
su correspondiente rutina (en el 
Spectrum estándar, por un error en 
esta rutina, las NMi no pueden ser 
utilizadas). 

Como verás, no es nada fácil in¬ 
tentar cambiar el «carácter» al Spec¬ 
trum de esta manera, hacen falta 
buenos conocimientos de la arqui¬ 
tectura de la máquina y un tanto de 
programación y electrónica aplica¬ 
da. Para el caso de que te decidas a 
aventurarte en este sentido te desea¬ 
mos mucha suerte. Esperamos tus 
noticias. 


COLABORADOR 

INTERESADO 

Quisiera que me informaran sobre 
las siguientes cuestiones: ¿pagan por 
los programas que mandan los lecto¬ 
res? ¿qué condiciones ponen a los 
programas? ¿cuánto dinero dan por 
programa? 

David Castro 
La Laguna (Tenerife) 

Por supuesto que pagamos los 
programas o artículos que publica¬ 
mos procedentes de lectores de toda 
España. Los programas deben estar 


grabados en cassette o microtirive, electos de remuneración se analiza 
con texto explicativo de su utilidad y Cada colaboración aisladamente, es- 
modo de empleo, y los artículos me- tudiando su calidad y complejidad, 
canografiados a doble espacio. A ¡No te hagas esperar! 


RARILLO EL QL 


Soy poseedor de un QL desde 
hace ya seis meses y he de decir 
que estoy muy contento con él. Sin 
embargo he notado una serie de 
curiosidades en su SuperKASIC 
que me gustaría comentaros. 

1) Según el manual de QL, la 
instrucción CLS admite dos pará¬ 
metros: el número de canal afecta¬ 
do (o el de omisión), y la parte de 
la pantalla que se ha de borrar (to¬ 
da en la omisión). Mi duda es re- 
pecto al segundo parámetro; según 
el manual este puede serO, 1,2,30 
4; que horran toda, la parte supe¬ 
rior, la inferior, la línea del cursor 
y desde el cursor al final de la línea 
respectivamente. 

Si bien esto es cierto, no es toda 
la verdad, pues este parámetro 
puede tomar muchos otros valores 
de la gama entre —32767 a 32767, 
si bien no todos, pues muchos dan 
el error «Parámetro incorrecto». 
El efecto de estos valores es de los 
más diverso, desde simplemente 
horar parte de la pantalla, hasta 
hacer un scrolling y un panning 
parcial de la misma, pasando por 
cambios de color del papel y la tin¬ 
ta, del flash, del subrallado, y al¬ 
gunos efectos más curiosos como 
la activación del cursor en el canal 
especificado o un crash que blo¬ 
quea todo el sistema (con el consa¬ 
bido reset para solucionarlo). 

Mi pregunta es la siguiente: ¿se 
(rata esto de una errata del sistema 
o tiene un utilidad determinada? 


Sí, es así, ¿cuál es esta y cómo se 
utiliza? 

Juan I. Rodríguez 
Casi i Neja de la Cuesta (Sevilla) 


Contestarnos a tus preguntas 
en el orden que las has formula¬ 
do: 

La instrucción CLS puede, 
efectivamente, tener como se¬ 
gundo parámetro un número en¬ 
tre 0 y 4, con las funciones que 
has comentado. Si ponemos aquí 
otra cifra cualquiera podemos 
llegar a engañar a ia máquina de 
modo que acabe haciéndose un 
lio. Esto no es en realidad una 
errata, pues, como bien se men¬ 
ciona en el manual de instruccio¬ 
nes, esa instrucción no debería 
usarse con otros valores que ios 
indicados. Bien es cierto que un 
lenguaje como el BASIC debe 
prevecr todas las equivocaciones 
que pueda tener el programdor 
para dar el correspondiente men¬ 
saje de error, y quizá sea esta una 
de las causas de que este lenguaje 
se haya hecho tan popular, pero 
no es menos cierto que el Super- 
BASIC no es un BASIC cual¬ 
quiera, en él se ha sacrificado en 
parte de esa forma de ser del BA¬ 
SIC para hacerlo más potente y 
versátil. En todo caso, agradece¬ 
mos que nos hayas comunicado 
tus experiencias en este sentido y 
esperamos lo sigas haciendo. 
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Vendo Spectrum 48K, con 
impresora Seikosha GP-50 S, 

joystick, interface Kempston y 
accesorios. Además incluyo 
revistas, programas de juegos y 
utilidades y manuales de Basic. 
Precio razonable. Robert Gami¬ 
gos. Pje. St. Ramón Nonato, 3,1 ■” 
2a. 08028 Barcelona. TeL (93) 
249 49 85. 


Vendo barato Spectrum 48K 

con fuente de alimentación, ca¬ 
bles y varios en tan sólo 20.000 
ptas. Regalo con ello revistas de 
Todospectrum y libros en Código 
Máquina. Alfonso Mier Herrería. 
Sen Fernando, 2, 4.° A. Sta. Cruz 
de Benzana (Cantabria). 
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Catálogo de Software 

para 

ordenadores 
personales 


Todo el Software disponible en el 
mercado reunido en un catálogo 
de 800 fichas 


1 . a ENTREGA 
550 FICHAS 
+ FICHERO 

Resto en dos entregas 
trimestrales de 150 fichas 
cada una 


PRECIO TOTAL DE LA SUSCRIPCION 8.000 PTAS. 


COPIE O RECORTE ESTE CUPON DE PEDIDO «5^0 

/-V- #*&--' N 

I CUPON DE PEDIDO PJ ¡mnnrto In ahonará P DQ nMPni IP PPlMTRA DíTPMRm QPi n PHM KM I 


CUPON DE PEDIDO 

1 SOLICITE HOY MISMO EL 
| CATALOGO DÉ SOFTWARE A: 

| El importe lo abonaré POR CHEQUE □ CONTRA REEMBOLSO □ CON MI j 
■ TARJETA DE CREDITO □ 

1 Cargue 8.000 ptas. a mi tarjeta American Express □ Visa □ ¡nterbank □ | 

! infoúis.s.3. 

| Número de mi tarjeta 

iiii 111 r 

1 NOMRRF 


n i i - ii i **i ^ a j l 

I CALLE 


Bravo Muriflo, 377, 5.° A 
28020 MADRID 

EN CONCESIONARIOS IBM 

1 CIUDAD 

n p 

1 PROVINCIA 

TFI FFDND | 

JLref: CATALOGO DE SOFTWARE 
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M Audaz. Segura. Una auténtica “traii". Ligera como una ga¬ 
cela. Fuerte como el león. Para dominar tanto a la jungla 
urbana, como a las dunas de Dakar. Su línea sabe de aven¬ 
turas, de horizontes abiertos. Siente en tu rostro el azote del viento de la libertad. 
Descubre sus prestaciones. Y no pongas límites a tu independencia. 

MOVIA 




YAMAHA VA POR DELANTE 






INTERACCION 
















